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>\LLOT  is  a computer  program  that  uses  linear  programming  techniques  to  determine  the 
optimum  laydown  of  a nuclear  arsenal  against  a target  base.  The  arsenal  (on  input  to  the 
model)  consists  of  a number  of  weapon  classes,  each  characterized  by  yield,  burst  height.  CEP 
prelaunch  survivability,  weapon  system  reliability,  and  penetration  probability.  The  target 
base  (also  an  input)  consists  of  a number  of  target  classes,  each  characterized  by  a target 
value,  a target  vulnerability  number,  and  a target  base. 


relative  force  size  ( RFS) 
circular  error  probable  (CEP) 
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Chapter  I 
INTRODUCTION 


ALLOT  is  a computer  program  that  uses  linear  programming 
techniques  to  determine  the  optimum  laydown  of  a nuclear  arse- 
nal against  a target  base.  It  was  written  by  LtCol.  Donald  J. 
Berg,  USAF,  JCS/SAGA,  and  modified  by  Dr.  James  A.  Ross  of  the 
Institute  for  Defense  Analyses  (IDA) . It  has  been  validated 
against  the  SIOP.  A brief  description  of  ALLOT  is  presented 
below. 


The  nuclear  arsenal  (input)  comprises  a number  of  different 
weapon  classes,  each  of  which  is  characterized  by  yield,  height 
of  burst,  circular  error  probable,  prelaunch  survivability, 
weapon  system  reliability,  and  penetration  probability.  All 
weapons  within  a given  class  are  considered  to  be  identical. 


Similarly,  the  target  base  (also  input)  consists  of  a 
number  of  different  target  classes,  each  characterized  by  a 
value,  a VN  number,1  and  a target  radius.  In  addition,  the 
user  may,  if  desired,  input  minimum  damage  goals  to  be  achieved 
against  individual  target  classes,  or  groups  of  classes. 


Once  all  the  inputs  have  been  assembled,  ALLOT  allocates 
the  nuclear  arsenal  against  the  target  base  to  produce  an 
optimum  laydown  according  to  whichever  of  the  following  speci- 
fications is  chosen  by  the  user. 


NOTE:  The  views  expressed  herein  are  those  of  the  author  only. 
Publication  of  this  Note  does  not  indicate  endorsement  by  IDA 
or  the  Joint  Chiefs  of  Staff. 


1 Those  readers  not  familiar  with  the  nuclear  target  vulnerability 
(VN)  system  used  by  the  Defense  Intelligence  Agency  (DIA)  are 
referred  to  the  Physical  Vulnerability  Handbook — Nuclear  Weapons, 
DIA  publication  AP-550-1-2-69-INT,  published  1 June  1969,  with 
changes  dated  through  1 June  1976. 
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(1)  The  total  target  value  destroyed  is  to  be  a maximum. 

(2)  The  total  number  of  weapons  employed  is  to  be  a 
minimum . 

(3)  The  total  megatonnage  employed  is  to  be  a minimum. 

(4)  The  total  equivalent  megatonnage  (EMT)  employed  is 
to  be  a minimum.  The  EMT  of  a weapon  is  defined 
as  follows.  Let  Y be  the  yield  of)  the  weapon,  in 
megatons.  Then  the  SMT  equals  Yl/‘  if  Y is  greater 
than  1,  or  Y2  3 if  Y is  less  than  1. 

(5)  The  total  oounte rmili  tary  potential  (CM?)  employed 
is  to  be  a minimum.  For  the  purposes  of  the  ALLOT 
model,  the  CMP  of  a weapon  is  defined  as  follows. 

Let  Y be  the  yield  of  the  weapon,  in  megatons,  and 
let  CEP  be  the  circular  error  probable,  in  feet. 
Define  C ■ 106-  Y:'VCEP^  if  X is  greater  than  or 
equal  to  0.2,  or  C « 106 * Y“  S/CEF-  if  Y is  less  than 
0.2.  Then  the  CMP  equals  C unless  C is  greater  than 
3,  in  which  case  the  CMP  is  simply  set  equal  to  3. 

(6)  The  Relative  Faroe  Sise  (RFS)  is  to  be  oonputed. 

RFS  is  defined  and  discussed  in  Chapter  II. 

The  chief  ALLOT  modification  performed  by  IDA  is  the  in- 
clusion of  the  capability  to  compute  RFS.  This  measure  has 
gained  widespread  interest  recently,  and  has  been  used  both 
in  the  Secretary  of  Defense  Annual  Report  and  the  Consolidated 
Guidance.  ALLOT  formerly  had  no  capability  to  compute  RFS; 
hence,  its  Inclusion  Is  considered  to  be  a valuable  addition. 
Other  modif ications  performed  by  IDA,  aside  from  auxiliary 
programming  changes  required  to  facilitate  the  RFS  computation 
within  the  existing  ALLOT  framework,  include  coding  changes 
designed  to  accommodate  greater  numbers  of  weapon  classes  and 
target  classes  than  was  previously  possible. 


The  version  of  ALLOT  currently  being  used  on  IDA's  CDC 
6400  computer  allows  up  to  20  weapon  classes  and  up  to  20 
target  classes.  (The  version  in  JCS  SAGA  allows  considerably 
more.)  Computer  running  time  depends  to  a large  extent  on  a , 
the  maximum  number  of  weapons  allowed  to  be  assigned  to  a 
target.  If  MW  is  the  number  of  weapon  classes,  and  MT  is  the 
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number  of  target  classes,  then  the  running  time  t on  IDA's 
computer  is  given  approximately  by 

t - 0.001  (NW)n(NT) (NW+NT/n ! 


below . 


minutes . 

Some 

NW 

NT 

t 

5 

5 

<0.5 

10 

10 

2 

15 

15 

7 

20 

20 

16 

5 

5 

1 

10 

5 

4 

10 

10 

10 

15 

10 

28 

15 

15 

50 

t 

5 

1 

10 

5 

12 

10 

10 

33 
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Chapter  II 

THE  RELATIVE  FORCE  SIZE  MEASURE 


Relative  Force  Size  (RFS)  is  defined  as  the  ratio  of  two 
force  levels: 


„ _ forces  available 

forces  required  to  meet  specified  damage  goals 

In  other  words,  the  forces  required  equal  the  forces  available 
divided  by  RFS.  To  put  it  another  way,  if  all  the  forces  in 
the  weapon  arsenal  *rere  scaled  down  proportionally  by  a factor 
RFS,  and  if  these  scaled  forces  were  then  all  optimally  al- 
located against  the  target  base,  then  the  specified  damage 
goals  would  just  be  met. 

For  example,  if  the  target  base  consisted  of  50  identical 
targets,  and  if  the  weapon  arsenal  consisted  of  50  identical 
weapons,  each  with  a single-shot  probability  of  kill  (SSPK)1 
of  0.50  against  a target,  and  if  the  damage  goal  were  to 
destroy  50  percent  of  the  total  target  base,  then  the  RFS 
would  be  1.00  (see  Table  1).  On  the  other  hand,  if  the  goal 
were  25  percent,  the  RFS  would  be  2.00;  and  if  the  goal  were 
75  percent,  the  RFS  would  be  0.50. 


’For  the  purposes  of  this  paper,  SSPK  is  defined  as  (probability 
of  arrival)  x (probability  of  kill  given  an  arrival),  where 
probability  of  arrival  is  defined  as  (prelaunch  survivability) 
x (weapon  system  reliability)  x (penetration  probability).  All 
warheads  are  assumed  to  be  independent,  and  no  fratricide  is 
allowed.  The  effect  of  an  enemy  attack  absorbed  before  the 
force  is  launched  may  be  reflected  in  prelaunch  survivabilities, 
but  post-attack  retargeting  is  not  permitted. 
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Table  1.  RFS  CALCULATIONS  BASED  ON  ONE  WEAPON  TYPE  AND  ONE  TARGET  TYPE 


Weapons 
Aval lable 


Targets  I SSPK 


0.50 


Overal 1 
Goal 


Weapons 

Required 


One  weapon  on  every  target. 
b0ne  weapon  on  every  other  target. 
cTwo  weapons  on  every  target. 


In  general,  of  course,  there  are  more  target  types  and 
more  weapon  types.  In  the  examples  in  Table  2,  there  are  two 
target  types  (each  with  50  targets)  and  two  weapon  types  (each 
with  50  weapons).  The  SSPKs  for  weapon  type  1 against  target 
types  1 and  2 are  assumed  to  be  0.10  and  0.90  respectively, 
and  those  for  weapon  type  2 are  assumed  to  be  0.50  and  0.50. 


Table  2.  RFS  CALCULATIONS  BASED  ON  TWO  WEAPON  TYPES  AND  TWO  TARGET  TYPES 


Overall  Weapons 

Goals  Required 


40ne  weapon  on  every  type  2 target. 
b0ne  weapon  on  every  type  1 target. 
c0ne  weapon  on  every  other  type  2 target. 
d0ne  weapon  on  every  other  type  1 target. 
*Two  weapons  on  every  type  2 target. 
fTwo  weapons  on  every  type  1 target. 
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As  the  numbers  of  target  types  and  weapon  types  continue 
to  increase,  it  becomes  more  and  more  difficult  to  evaluate 
the  RPS  by  simple  inspection.  The  general  problem  is  amenable 
to  solution  by  linear  programming  techniques,  however,  pro- 
vided a bound  is  placed  on  the  maximum  number  of  weapons  that 
can  be  assigned  to  any  one  target.  In  ALLOT  this  upper  bound 
is  three.  For  problems  of  practical  interest,  this  limitation 
has  not  been  a serious  restriction. 
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Chapter  III 
OPERATION 

The  types  of  problems  solved  by  ALLOT  can  always  be  ex- 
pressed in  the  following  mathematical  form:  Find  the  values 

of  the  variables  x , x , x , ...,x„,.x;y,y  , y , .... 

l 2 3 m-l’  mj23 

yn_j.  yn,  such  that,  for  given  a^.  and  b.^. 


+ xi  — b^  (1  — 1,2,.. .,m). 


where  x^O  for  all  1,  Yj-0  for  all  j,  and  x^  Is  a minimum. 

Thus,  operation  of  the  ALLOT  model  in  essence  consists 
of  (1)  reading  the  inputs,  (2)  making  preliminary  calculations, 
(3)  determining  the  values  of  the  a^  and  the  b^  (4)  solving 
the  basic  equations,  and  (5)  printing  the  results.  The  sub- 
routines in  which  these  steps  are  actually  carried  out  are 
indicated  below. 


0 


OPERATION 

Read  Input  Values 
Compute  SSPKs 
Print  Input  Values 
Compute  Values  of  b^ 
Compute  Values  of  a^j 


6. *  Print  Values  of  a^  and  b* 

7.  Solve  Equations  byJUslng  Linear 
Programming  Algorithm 

8. *  Print  Formal  Linear  Programming  Solution 

9.  Print  Results 

"Optional 

""Also  uses  auxiliary  subroutines  AX  and  AMAT. 


SUBROUTINE ( S ) 

SUBROUTINE  INPUT 
SUBROUTINE  DPDX 
SUBROUTINE  INPUT 
SUBROUTINE  INPUT 
SUBROUTINE  BUILDA 
SUBROUTINE  CREATE 
SUBROUTINE  INSERT 
FUNCTION  OBJECT 
SUBROUTINE  OUTMAT 
SUBROUTINE  SIMPLE*" 

SUBROUTINE  DUAL 
SUBROUTINE  OUTPUT 
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Further  discussion  concerning  the  mathematics  involved — 
including  the  physical  significance  of  the  x.±  , y ^ , a^  , and 
— is  presented  in  Appendices  A and  B.  A complete  listing 
of  ALLOT  is  presented  in  Appendix  C. 
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Chapter  IV 
INPUT  REQUIREMENTS 


The  input  requirements  for  ALLOT  are  described  below. 


Control  Cards  - Control  cards  are  used  to  signal  to  the 
input  routine  the  type  of  information  that  follows.  In  some 
cases  the  Information  is  fully  contained  on  the  control  card 
itself,  and  in  other  cases  the  control  card  only  denotes  the 
type  of  information  on  the  cards  that  follow  it.  The  control 
cards  (discussed  below)  are: 


* IN/ OUT  - 
* START  - 

* WPN 
“TGT 

* NWP 

* NTQ 
“CWP 

* CTG 

* ADD 

* SUB 

* FOR 

* FTP 

* COL 

* END 


select  input/output  options 
start  problem 

Input  weapon  specifications 
input  target  specifications 
input  weapon  numbers 
input  target  numbers 
change  and/or  add  weapons 
change  and/or  add  targets 

input  weapon  vectors  to  be  added  (see  discussion 
below) 

input  weapon  vectors  to  be  deleted  (see  discussion 
below ) 

input  applicable  targets  for  weapon  vectors  (see 
discussion  below) 

input  footprinting  degradation  factor 
include  collateral  damage  option 
end  of  problem 


* IN/OUT  Card  - The  “IN/OUT  card  is  used  to  select  input/ 
output  options.  Its  use  Is  optional.  When  it  is  used, 
it  must  appear  directly  before  any  “START  card. 


CARD  FORMAT 

COLS 

PARAMETER 

FORMAT 

1-7 

“IN/OUT 

10-12 

f. 

A3 

1*4-16 

f ^ 
l2 

A3 

11 
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The  possible  values  for  the  f^  are: 

MAT  - print  out  intermediate  results  (generally  used  for 
debugging  purposes  only) 

NOL  - suppress  laydown  printout 

"START  Card  - The  "START  card  must  appear  as  the  first  card 
of  every  problem.  In  addition  to  signaling  the  beginning  of  a 
problem,  the  "START  card  is  also  used  to  select  an  upper  limit 
on  the  number  of  weapons  assigned  to  a target,  and  to  select 
the  type  of  laydown  desired. 

CARD  FORMAT 

COLS  PARAMETER  FORMAT 

1-6  "START 
8 N A1 

10-12  F A3 

N is  the  upper  weapon  limit  per  target.  It  must  not  be 
greater  than  three.  F is  used  to  select  the  type  of  laydown 
desired.  The  possible  "values"  for  F are: 

DE  ■ maximize  expected  value  damage 

WPN  * minimize  weapons  used 

MT  = minimize  megatons  used 

EMT  * minimize  EMT  used 

CMP  ■ minimize  CMP  used 

If  F is  blank,  the  program  will  compute  RFS. 

"WPN  Card  - The  "WFN  card  I3  used  to  signal  that  the  cards 
that  follow  it  are  weapon  specification  cards.  If  this  card  is 
not  used,  then  the  arsenal  from  the  previous  problem  Is  used. 

CARD  FORMAT 


COLO  PARAMETER  FORMAT 
1-4  "WPN 
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Weapon  Specification  Card  - Weapon  specification  cards 
specify  the  values  of  the  parameters  associated  with  each 
weapon  type . 


CARD  FORMAT 


COLS 

PARAMETER 

DEFAULT  VALUE 

FORMAT 

5-12 

name 

blank 

2A4 

15-18 

type 

blank 

A4 

19-24 

number 

none 

16 

29 

height  of  burst  (gnd=0,  opt 

air*l ) 

1 

11 

31-40 

yield  (in  megatons) 

none 

F10.0 

41-50 

circular  error  probable  (in 

feet ) 

none 

F10.0 

51-60 

prelaunch  survivability 

1 

F10.0 

61-70 

weapon  system  reliability 

1 

F10.0 

71-80 

probability  to  penetrate 

1 

F10.0 

*TQT  Card  - The  *TGT  card  Is  used  to  signal  that  the  cards 
that  follow  It  are  target  specification  cards.  If  this  card 
Is  not  used,  then  the  target  system  from  the  previous  problem  is 
used . 


CARD  FORMAT 

COLS  PARAMETER  FORMAT 

1-4  *TQT 


Target  Specification  Card  - Target  specification  cards 
specify  the  values  of  the  parameters  associated  with  each 
target  type. 
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CARD  FORMAT 


COLS 

PARAMETER 

DEFAULT  VALUE 

FORMAT 

5-12 

name 

blank 

2A4 

15-18 

type 

blank 

A4 

is -24 

number 

none 

16 

26-29 

VN  number 

none 

I2,A1,I1 

31-40 

value 

1 

F10.0 

41-50 

DEMIN — minimum 

DE  allowed  on 
each  target  of 
that  type. 

0 

F10.0 

51-60 

DEMAX — maximum 

DE  allowed  on 
each  target  of 
that  type. 

1 

F10.0 

61-70 

DEAVE — minimum 
average  DE  to  be 
achieved  on  that 
target  type.i 

0 

F10.0 

71-80 

DEDLT — target 
radius  (nautical 
miles ) 

0 

F10.0 

*NWP  Card  - The  *NWF  card  is  used  to  change  the  number  of 
each  name  of  weapon  used  in  the  arsenal  from  the  previous  problem. 
If  the  previous  problem  had  NW  weapon  names,  the  NW  numbers  in 
2014  format  must  immediately  follow  the  *NWP  card. 


CARD  FORMAT 


COLS 

PARAMETER 

FORMAT 

1-4 

*NWP 

_ _ 

This  is  followed  by  a card  with  NW  items  in  2014  format. 


•A  series  of  n consecutive  target  specification  cards  with 
negative  values  of  DEAVE,  followed  by  a card  with  a positive  DEAVE 
value,  D,  indicates  that  a fraction  D of  the  total  value  of 
all  the  targets  in  the  set  of  n+1  target  specification  cards 
must  be  destroyed. 


1H 
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*NTG  Card  - The  *NTG  card  is  used  to  change  the  number  of 
each  of  the  NT  target  names  in  the  same  manner  the  *NWP  card  is 
used  to  change  the  number  of  each  of  the  NW  weapon  names. 

CAHD  FORMAT 

COLS  PARAMETER  FORMAT 

1-4  *NTG 

This  is  followed  by  a card  with  NT  items  in  2014  format. 

*CWP  Card  - The  *CWP  card  is  used  to  change  a weapon  specifi- 
cation or  add  a new  one  to  the  arsenal  of  the  previous  problem, 
without  having  to  input  the  entire  arsenal. 

CARD  FORMAT 

COLS  PARAMETER  FORMAT 

1-4  »CWP 

The  *CWP  card  is  immediately  followed  by  weapon  specification 
cards.  If  the  name  and  type  field  on  a card  (other  than  blanks) 
agree  with  the  name  and  type  field  for  a weapon  type  in  the 
previous  arsenal,  then  the  old  parameters  are  replaced  by  the 
new  ones.  If  the  name  and  type  fields  do  not  agree  with  any 
in  the  previous  arsenal,  then  the  weapon  type  is  added  to  the 
arsenal.  When  a weapon  is  added,  its  type  field  must  either 
agree  with  the  type  field  of  the  last  weapon  in  the  previous 
arsenal  or  else  it  must  be  an  entirely  new  type. 

*CTG  Card  - The  *CTG  card  is  used  to  change  or  add  targets 
to  the  previous  target  system  in  the  same  manner  the  *CWP  card 
changes  or  adds  weapons. 

CARD  FORMAT 

COLS  PARAMETER  FORMAT 

1-4  *CTG 
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•add  Card  - The  *ADD  card  signals  that  the  cards  that 
follow  it  define  weapon  vectors'  that  are  to  be  added  to  the 
allowed  set  of  weapon  vectors. 

CARP  FORMAT 

COLS  PARAMETER  FORMAT 

1-4  * ADD 

•SUB  Card  - The  “SUB  card  signals  that  the  cards  that  fol- 
low It  define  weapon  vectors  that  are  to  be  deleted  from  the  set 
of  allowed  weapon  vectors. 

CARD  FORMAT 

COLS  PARAMETER  FORMAT 

1-4  “SUB 

ADD/SUB  Specification  Card  - These  cards  define  the  weapon 
vectors  to  be  added  to  or  deleted  from  the  set  of  allowed  weapon 
vectors . 

CARD  FORMAT 


C0l£ 

PAR 

FORMAT 

COLS 

PAR 

FORMAT 

COLS 

FAR 

FORMAT 

6 

n 

A1 

30 

1*3 

A1 

54 

rs 

A1 

7 

hi 

11 

31 

h3 

11 

55 

11 

9-16 

ti 

2A4 

33-40 

2A4 

57-64 

t5 

2A4 

18 

h2 

A1 

42 

«% 

A1 

bb 

r* 

A1 

19 

n2 

11 

43 

»■* 

11 

67 

11 

21-/8 

t2 

2A4 

45-52 

ti, 

2A4 

69-76 

It. 

2A4 

The  r^'s  are  only  used  In  the  “SUB  section  and  are  relational 
operators,  where  0 signifies  greater  than,  L signifies  less 
than,  and  any  other  character  or  a blank  signifies  equality. 


'Weapon  vectors  are,  by  definition,  weapon  combinations  allowed 
to  be  assigned  to  a target.  The  “START  card  Indicates  that  all 
combinations  with  N or  less  weapons  are  allowed.  The  purpose 
of  the  “ADD  and  “SUB  cards  is  to  permit  additions  and/or  sub- 
tractions to  the  group  of  allowed  weapon  vectors. 
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The  r^'s  are  numbers  of  weapons.  The  t^'s  are  either  the  name 
of  a weapon  (name  field),  the  type  of  weapon  (type  field),  or 
the  word  OTHERS  left  justified  in  the  field.  Anything  following 
a blank,  an  invalid  t^  field,  or  the  word  OTHERS  is  ignored.  A 
tg  field  may  be  used  only  for  OTHERS. 


Examples  of  use: 

•ADD 

1 I CBM  1 B52  SRAM 

2 SLBM  1 OTHERS 


•SUB  1 I CBM  GO  TRIDENT 

1 POLARIS  1 B52  SRAM  0 OTHERS 

GO  POSEIDON  LI  OTHERS 


The  OTHERS  clause  is  handled  somewhat  differently  in  the  *ADD 
and  *SUB  sections.  In  the  *ADD  section,  if  the  OTHERS  clause  is 
not  present,  then  zero  OTHERS  is  assumed.  On  the  other  hand,  if 
the  OTHERS  clause  is  not  present  in  the  *SUB  section,  it  is  inter- 
preted as  "don't  care  about"  OTHERS.  Thus,  in  the  first  example 
of  the  *SUB  section  above,  all  weapon  vectors  with  one  ICBM  and 
more  than  zero  TRIDENTs  will  be  deleted,  regardless  of  how 
many  other  weapons  may  be  in  the  weapon  vector.  In  the  second 
•SUB  section  example,  however,  only  the  weapon  vector  with  one 
POLARIS,  one  B52  SRAM,  and  no  other  weapons  will  be  deleted. 

•FOR  Card  - The  *FOR  card  is  used  in  an  *ADD  or  *SUB  section 
to  indicate  to  which  targets  an  ADD/SUB  specification  applies. 


COLS 

CARD  FORMAT 

PARAMETER 

FORMAT 

1-4 

•FOR 

_ __ 

9-16 

ti 

2A4 

21-28 

1 2 

2A4 

33-40 

6 3 

2A4 

45-52 

t 4 

2A4 

57-64 

6 5 

2A4 

69-76 

66 

2A4 
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The  t^'s  are  either  the  name  of  a target  (name  field), 
the  type  of  a target  (type  field),  or  ALL  EXC.  The  ALL  EXC 
clause  can  only  be  used  in  t^,  and  is  interpreted  as  for  all 
except  t,,  ....  t^.  All  fields  after  a blank  or  invalid  field 
are  ignored.  All  specification  cards  between  the  *ADD  or  *SUB 
card  and  the  first  *FOR  card  are  applied  to  all  targets.  Once 
a *FOR  card  is  used,  it  applies  to  all  the  specification  cards 
that  follow  it  in  that  section  until  another  *FOR  card  is 
encountered . 


Examples  of  i 

use : 

•ADD 

•FOR 

HARD 

NUC  STOR 

1 

ICBM 

1 B5 2 SRAM 

•FOR 

ALL  EXC 

SS-18 

2 

SLBM 

1 OTHERS 

•SUB 

•FOR 

1 

ICBM 

AIRFIELD 

GO  TRIDENT 

1 

POLARIS 

1 B52  SRAM  0 OTHERS 

GO 

POSEIDON 

LI  OTHERS 

In  the  above  examples,  the  first  specification  in  the  *SUB 
section  applies  to  all  targets,  and  both  of  the  last  two  apply 
only  to  AIRFIELD. 

•FTP  Card  - The  *FTP  card  is  used  to  signal  that  the  cards 
that  follow  it  are  footprint  degradation  factor  cards.  If  this 
card  is  not  ised,  then  the  degradation  factors  from  the  previous 
problem  are  used.  Until  the  first  employment  of  an  *FTP  card, 
it  is  assumed  that  there  is  no  degradation  in  weapon  effective- 
ness due  to  footprinting. 


CARD  FORMAT 

COLB  PARAMETER  FORMAT 
1-4  * FT  P 
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1. 

i: 


y 


i. 

i 

L 


i: 

L 

i 

[ 


[ 


Footprint  Degradation  Factor  Card  - Footprint  degradation 
factor  cards  Indicate  relative  effectiveness  of  the  specified 
weapon  name  against  the  specified  target  name.  (The  relative 
effectiveness  is  by  definition  1.0  if  there  is  no  degradation 
in  effectiveness  due  to  footprinting. ) 


CARD 

FORMAT 

COLS 

PARAMETER 

FORMAT 

COLS 

PARAMETER 

FORMAT 

1-2 

tj 

fl 
t 2 

12 

27-28 

*4 

12 

3-4 

12 

29-32 

f 4 

F4 .0 

5-8 

F4 .0 

33-34 

65 

12 

9-10 

12 

35-36 

W5 

12 

11-12 

W j 

12 

37-40 

fs 

F4  .0 

13-16 

f 2 

F4 .0 

• • • 

• • • 

• • • 

17-18 

t3 

12 

73-74 

t 10 

12 

19-20 

W3 

f 3 

12 

75-76 

w 1 0 

12 

21-24 

F4  .0 

77-80 

f 1 0 

F4 .0 

25-26 

t 4 

12 

Each  t 

. is  a target  name 

number,  each  w^  is  a 

weapon 

name  number 

, and  each 

f.  is  the  relative 

effectiveness  of 

weapon  name 

w^  against 

target 

name  t^. 

There  is  no 

limit 

to  the  number  of  weapon  name/target  name  combinations  per- 
mitted, although  only  10  such  combinations  can  be  indicated 
on  a single  card.  However,  any  number  of  successive  cards  is 
permitted.  If  n weapon  name/target  name  combinations  are 
desired,  then  the  columns  corresponding  to  t and  w ^ must 
be  left  blank.  (This  may  necessitate  the  inclusion  of  a blank 
card.  For  example,  if  n equals  10,  blanks  in  columns  cor- 
responding to  t^  and  w^  are  required.) 

•COL  Card  - The  *C0L  card  is  used  to  signal  that  the  col- 
lateral damage  feature  in  ALLOT  is  to  be  activated.  Until  the 
first  employment  of  the  *C0L  card,  it  is  assumed  that  there  is 
no  collateral  damage.  Once  this  card  has  been  employed,  however, 
the  collateral  damage  feature  cannot  be  deactivated. 
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This  feature  assumes  that  the  total  damage  resulting 
from  a detonation  Is  proportional  to  the  cube  root  of  the 
weapon  yield.  It  occurs  whenever  the  target  attacked  has 
a VN  number  of  15  or  less. 

CARD  FORMAT 

COLS  PARAMETER  FORMAT 

1-4  "COL 

"END  Card  - The  "END  card  denotes  the  end  of  the  problem 
statement . 


CARD  FORMAT 

COLS  PARAMETER  FORMAT 

1-4  "END 


Miscellaneous 


(a)  The  "WPN,  "TGT,  "CWP,  and  "CTG  section  must  precede 

all  "ADD,  "SUB,  "FTP,  and  "COL  sections.  Other  than 

this  restriction,  the  various  sections  may  appear  in 
any  order. 

(b)  Internally,  weapon  vectors  are  added  according  to  the 
ADD  cards  before  deletions  according  to  the  SUB  cards 
take  place . 

(c)  The  name  fields  within  the  "WPN  section  must  be  unique. 

(d)  The  name  fields  within  the  "TGT  section  must  be  unique. 

(e)  The  type  field  within  a section  cannot  be  the  same  as 
a name  field  within  that  same  section. 

(f)  All  WPN  or  TGT  specification  cards  having  the  same 
type  field  must  be  grouped  together. 

(g)  If  the  number  of  target  or  weapon  types  is  changed, 
then  it  is  necessary  to  redefine  the  "ADD  and  "SUB 
sections . 

(h)  Null  "ADD  and  "SUB  sections  are  allowed.  That  is,  it 
is  permissible  to  have  an  "ADD  or  "SUB  card  followed  by 
no  specification  cards  in  order  to  delete  previous 
specifications . 
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Chapter  V 
SAMPLE  CASES 

To  indicate  the  form  of  the  output  of  ALLOT,  and  to  assist 
the  user  in  employing  the  model,  a run  consisting  of  three 
sample  cases  is  presented  below.  The  first  two  cases  concern 
computations  of  RFS  and  include  the  two  optional  intermediate 
printouts  normally  used  only  for  debugging  purposes.  The 
third  case  concerns  a problem  in  which  DE  is  maximized. 

The  input  deck  for  the  run  is  displayed  below,  followed 
by  the  complete  output.  The  total  running  time  for  these 
three  sample  cases  on  the  IDA  computer  was  about  a minute. 
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INPUT  DECK 


•|M/nuT  m*t 
•staot  l 


•TOT 


*0*1 

ICA* 

1 *0  t 

i.ooo 

•ooo. 

0.9S 

yphf 

ICON 

t«t  1 

?.S00 

•ton  e. 

• •os 

WPN) 

lco* 

mi  l 

**e  i 

*."«« 

<000. 

O.TS 

W*W4 

|C«» 

i.ooo 

tooo. 

o.os 

M»N> 

SLNk 

i«e  o 

1.000 

tsoo. 

0.95 

yMA 

IfFOOIl 

St  o» 

mt  0 

0.000 

<100, 

o.os 

••NT 

Sl"» 

>•0  • 

• .TOO 

ASOO. 

O.TS 

••N* 

9x«« 

too  0 

0.000 

00(10. 

o.os 

••NO 

9n«r 

toe  i 

0.100 

0000 

0.9S 

••Nl" 

OnM 

toe  l 

0.100 

tooo. 

O.TS 

TOT, 

OOj, 

too  10«S 

!• 

0.T0 

TflTj 

OOJI 

toe  i*«o 

1* 

• »• 

• •00 

totj 

TOT* 

oajj 

OOj* 

:s:  .s:s 

!: 

0.0 

0.9 

0.00 

0.90 

TOTS 

OOjl 

toe  loco 

1. 

0.0 

o.os 

toTO 

OOjI 

toe  *ooS 

1. 

II 

0.00 

tott 

OOj* 

toe  *•«* 

>. 

l.l 

-ll° 

TOTi 

00  jS 

toe  Hpi 

1. 

0.0 

o.lo 

• ADO 
•POO  «*JJ 

1 SINN 

•CNO 

•ADO 

•JU* 

•Tu*  Mj] 

I «.»» 

•CNO 
•Jn/nuT 
Uttar  i M 


| ICM 


| ICM> 


•Hi; 

«M1 


•TOT 


• JU* 

•cot 

•CNO 


MNNS 

V.u 

TOTS 

TOT* 

TOTS 

TOTO 

t0T» 

TOT* 

TOT* 

T«Tl<* 


t*o  i 

Moo 

J000. 

0.0 

0.90 

1.0 

see  l 

l.flOO 

<>10. 

0.9 

0*00 

0.0 

ill  \ 

1.000 

<000. 

0.9 

0.T0 

0.0 

o.soo 

tsoo 

0.0 

0.00 

O.T 

lot  1 

0.100 

tooo. 

0.0 

0.90 

0.0 

10  IM* 
u io®9 

n m 

•I  IlgS 
too  >««5 
dot  IlgS 
dot  IggS 
*90  10g9 
>•••  »0«9 


1.000 

g>Mt 

i;i*i 

• .100 

0,0*0 

•>*• 

0.9*0 

0,010 
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SAMPLE  CASE  1 

The  first  sample  case,  an  RFS  computation,  involves  an 
allocation  in  which  most  target  classes  are  limited  to  a maximum 
of  one  weapon  per  target.  An  ADD  card  allows  0BJ3  targets  to 
receive  one  SLBM  weapon  and  one  ICBM  weapon,  but  this  is  the 
only  exception  to  the  one-weapon-per-target  limit. 
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The  second  sample  case,  also  an  RHS  computation,  uses  the 
same  weapon  base  and  target  base  as  the  first  sample  case.  How- 
ever, It  allows  a maximum  of  two  weapons  per  target  (Instead  of 
one),  except  that  attacks  on  0BJ3  targets  by  one  SLBM  weapon  and 
one  ICBM  weapon  are  prohibited. 
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SAMPLE  CASE  3 


The  third  sample  case  maximizes  target  valut  destroyed. 

It  allows  a maximum  of  two  weapons  per  target,  and  incorporates 
the  collateral  damage  feature  wherein  a given  weapon  is  assigned 
to  more  than  one  target. 
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Appendix  A 
MATHEMATICAL  THEORY 

The  mathematical  theory  employed  in  ALLOT  is  best  illus- 
trated by  an  example.  Suppose  there  are  two  target  classes, 
consisting  of  T,  and  'I'  targets,  respectively.  Suppose  further 
that  there  are  W Identical  weapons,  each  with  a single-shot 
probability  of  kill  (SSPK)  of  against  targets  in  the  first 
target  class,  and  against  targets  in  the  second  class.  Let 
and  \\  be  the  values  of  targets  in  the  first  and  second 
target  classes,  respectively,  and  assume  that  it  is  not  per- 
mitted to  place  more  than  two  weapons  against  any  individual 
target.  With  these  constraints,  consider  the  following  two 
quest  ions : 

(1)  What  is  the  maximum  possible  value  destroyed? 

(2)  If  it  is  desired  to  achieve  average  damage  levels 

of  at  least  D.  and  P,  against  the  two  target  classes, 
respectively , what  IS  the  relative  force  size  (RKS)? 

Each  of  these  two  examples  is  amenable  to  solution  by 
first  expressing  the  problem  in  a general  linear  programming 
form,  and  then  solving  it  by  standard  linear  programming 
techniques . 1 


1 In  general,  a noninteger  solution  will  be  obtained,  although 
the  answers  may  be  truncated  or  rounded  off  by  the  user.  In 
view  of  the  aggregation  usually  involved  in  the  preparation 
of  the  target  data  base,  such  activity  is  not  likely  in 
practice  to  have  a significant  effect  on  the  accuracy  of 
the  solution. 
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The  general  linear  programming  form  used  In  ALLOT  is  as 
follows : 


Find  values  of  the  variables  (1-1 ,2 , 3, . . . ,m)  and 
y j ( J“1 » 2, 3 » • • • »n)  such  that,  for  given  a^  and 


n 


E 

j-i 


a 


iJyJ  + Xl=  bl  (1“1*2»3» • • • »m) 


(1) 


x1>0,  y j £0  (2) 

x.^  = minimum  (3) 

The  algorithm  used  to  solve  these  equations  is  described 
in  Appendix  B.  The  purpose  of  the  present  appendix  is  to 
show  that  each  of  the  two  examples  presented  above  can  be 
expressed  in  the  general  form  of  equations  (l)-(3). 

Consider  the  first  problem  - i.e.,  what  is  the  maximum 
possible  value  destroyed?  Define  the  following: 

x1  ® the  total  value  surviving  (i.e.,  not  destroyed) 

x ,y. ,y , = the  numbers  of  targets  in  target  class  1 assigned 
0,1,  and  2 weapons,  respectively. 

x ,y^,y,  = the  numbers  of  targets  in  target  class  2 assigned 
33  0,1,  and  2 weapons,  respectively. 


Xjj  = the  number  of  weapons  not  used. 

Then  the  requirements  that  the  total  numbers  of  targets 
in  each  class  are  T.  and  T~,  respectively,  can  be  written 

i.  4_ 


y,  + y.  + x0  *=  T, 


y3  + yi,  + x3 


(4) 

(5) 
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The  requirement  that  the  total  number  of  weapons  equals 
W is  expressed  as 

yl  + 2y2  + y3  + 2y4  + xl\  “ w (6) 

The  total  value  surviving,  , is  given  by 

X1  " vi^x2  + JTiti-Ki)  ♦y2(1«Ki)C] 

+ V2[x3  + y3(l-K2)  + y„(l-K2)2]  (7) 

where  and  V-,  are  the  individual  target  values,  and  and 
K-,  are  the  SSPKs.  If  the  expressions  given  in  equations  (4) 
and  (5)  for  x0  and  x^  are  substituted  into  equation  (7),  the 
result  is 

xx  « V1[(T1  - yx  - y 2 ) + y^l-l^)  + y2(l-K;L)2] 

+ v2[(T2  - y3  - yj*)  + y3(i-K2)  + y4(i-K2)2]  (8) 

Rearranging  terms  in  equation  (8)  gives 

V1[l-(1-K1):y1  + V1[l-(1-K1)2]y2 

+ V2[l-(1-K2)]y3  + V2[l-(1-K2)2]y4  + x1 

V1T1  + V2T2  (9) 

Equations  (9),  (4),  (5),  and  (6)  comprise  the  desired  set  of 
conditions.  Comparison  with  equations  ( 1 ) — ( 3 ) shows  that 
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n 


all 

a12 

a13 

al4 

a21 


* 4 
= 4 

= vlTl  ♦ v2t2 


= w 

* V^l-U-K^.)] 

- V1[l-(1-K1)2] 

= v2ci-(i-k2)] 

- V2[l-(1-K2)2] 
= 1 


a24 
a31  = 
a32  = 
a33  " 
a34 
a4l 
a42  = 
a43 
a44  = 


1 

0 

0 

0 

0 

1 

1 

1 

2 

1 

2 


This  completes  the  discussion  of  the  first  problem.  The 
technique  shown  is  quite  general  and  is  easily  extended  to 
accommodate  cases  involving  additional  target  classes  and/or 
weapon  classes. 

Consider  now  the  second  problem  - i.e.,  what  is  the  RFS? 

In  this  case,  the  procedure  followed  by  ALLOT  is  to  first 
determine  the  forces  required  to  meet  the  specified  goals,  and 
then  determine  the  ratio  of  these  forces  to  those  available. 

Use  the  same  definitions  as  before,  except  for  x..  Redefine 
x^  as  the  inverse  of  the  RFS: 

x1  = 1/RFS 

XpjX-j.Xj.  ,y,  .y^y^y,.  = same  definitions  as  in 
J ^ first  problem 
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Define,  in  addition, 

yr  » 1/RPS 
5 

X(-  * average  damage  in  excess  of  required  average 
damage  t.o  targets  in  target  class  1 

x(^  * average  damage  in  excess  of  required  average 
damage  D.,  to  targets  in  target  class  2 

Equations  ( 4 ) and  (5)  are  still  applicable  and  are  there- 
fore retained.  In  equation  (6),  it  is  necessary  to  replace  W, 
the  number  of  weapons  available,  by  Wy^,  the  number  of  weapons 
actually  required: 

yl  + 2y2  + y3  + 2y4  + x4  = Wy5  UO) 


The  equations  describing  xc  and  x£  deal  with  the  total  value 

) b 

surviving  in  the  two  target  classes,  respectively,  and  are 
somewhat  similar  in  form  to  equation  (7): 


V1[x2  + y1(l-K1)  + y2(l-K1)2] 

(ID 

V2T2(1-D?-x6)  = 

V2tx3  + y3(l-K2)  + y^(l-K2)2] 

(12) 

With  substitutions  from  equations  (4)  and  (5),  and 

re- 

arrangement  of  terms,  equations  (11)  and  (12)  become 

C-1+(1-K1)]y1 

+ | -1+(1-K  K ]y ,+  x^  = -D1 

dS) 

T. 

i 

[-1+(1~K  J]y3 

+ [ -i  + ( i-K2 ) ^ ]y  ^ + x6  = -d2 

(14) 

T 

2 

Finally,  the  definitions 

of  x,  and  yc  require  that 

”y5  + xi  = 0 

(15) 
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Accordingly,  equations  (15),  ( *0 , (5),  (10),  (13),  and  (1*0 
comprise  the  desired  set  of  conditions.  Comparison  with 
equations  (l)-(3)  shows  that 


;n 

s 

6 

a14 

8 

0 

a3*J 
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1 *55  ■ 
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n 

= 

5 

a15 
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l 

a35 
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0 a61  ' 

0 

bl 

.s 

0 

a21 

S 

l 

a*u 

8 

1 a62  = 

0 

b2 

a 

T1 

a22 

m 

l 

aH2 

S 

a63  ‘ 

C-1+(1-K2)]/T2 

b3 

s 

T 

2 

a23 

8 

0 

a4  3 

8 

1 a6*  " 

[-i+(i-k2)2]/t2 

b4 

0 

a2*4 

= 

0 

a*l  *1 

= 

2 *65  ■ 

0 

b5 

= 

D1 

S*  o c 

= 

0 

a*45 

8 

-w 

b6 

s 

D, 

tl 

25 

— 

0 

a51 

8 

[-1+(1-K1)]/T1 

11 

= 

0 

31 

a52 

= 

[-1+(1-K1)2]/T1 

12 

= 

0 

a32 

8 

0 

a53 

= 

0 

13 

■ 

0 

a33 

a 

1 

a5*< 

= 

0 

This  completes  the  discussion  of  the  second  problem. 

Once  again,  the  technique  is  quite  general  and  is  easily 
extended  to  accommodate  cases  involving  additional  target 
classes  and/or  weapon  classes. 

The  algorithm  used  to  solve  the  general  set  of  equations 
( 1 ) — ( 3 ) is  presented  in  Appendix  B. 
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Appendix  B 

ALLOT  LINEAR  PROGRAMMING  ALGORITHM 


Consider  the  following  linear  programming  problem:  Find 
values  of  the  variables  x^  (1  = l,2,3,...,m)  and  y j ( j = 1,2,3,. 
such  that,  for  given  a^j  and  b^ 


aiJyj 


+ x. 


(1) 


Xi-0’  yj'°  (2) 

x = minimum  (3) 

(A  trial  solution  is 

xi  ■ bi-  yj  = 0 

This  is,  in  fact,  the  desired  answer  if  b^>0  for  all 

i,  and  if  a^iO  for  all  j.  If  these  conditions  are  not  met, 

however,  further  work  is  necessary.) 

Given  equations  (l)-(3),  the  steps  of  the  algorithm  used 
in  ALLOT1  to  solve  this  problem  are  as  follows: 

1.  If  b^O  for  all  i£2,  go  to  step  7. 

2.  Find  an  ii2  for  which  b^iO.  Call  it  a. 

3.  Find  the  value  of  j for  which  aaj  is  the  smallest. 

Call  it  6 . Then  a a * a . for  all  j . 

a(3  aj 

4.  If  a^^O,  the  problem  as  stated  above  in  equations 
(1)  - (3)  has  no  solution. 

^This  algorithm  is  a variant  of  the  well-known  simplex  algorithm 

UNCLASSIFIED 
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5.  Consider  all  122  for  which  b.^20,  and  a^^O.  Of  these, 
find  the  value  of  i for  which  (b^/a^g  ) is  the  smallest. 
Call  it  y . (If  there  is  no  i>2  such  that  b.20  and  a..  >0 

1 IP 

set  y equal  to  a . ) 

6.  Go  to  step  10. 

7.  (Via  step  1).  If  Sjj-0  for  all  j,  the  problem  is  solved. 
The  solution  is  = b^,  y^  = 0. 

8.  If  there  exists  an  a^>0,  then  find  the  value  of  J for 

which  a,,  is  the  largest.  Call  it  8.  Then  a >a.. 

lJ  ip  lJ 

for  all  j,  and  al(,>0. 

9.  Consider  all  122  for  which  a.j^O.  Of  these,  find  the 
value  of  i for  which  (b-^/a^g ) is  the  smallest.  Call 

it  y.  (If  there  is  no  i>2  for  which  a^g>0,  the  problem 
as  stated  above  in  equations  (l)-(3)  is  unbounded.) 

10.  (Via  step  6 or  step  9).  Consider  equation  (1)  with 
i = y: 

Y a->JyJ  + ' b*  <4) 

11.  Divide  both  sides  of  this  equation  by  a^g : 


(aYj/aY«)y.l  + (1/aY6)XY  * V (bY/aY8> 


(5) 


-E 


1>e'-  y8  ' W ' Y laYJ/aY8,yJ  -<1/aYS)XY  (6) 


12.  Use  equation  (6)  to  substitute  for  y.  in  the  remainder 

P 

of  equations  ( 1 ) : 


Y [aiJ  ' (aiBaYj/aY8)]l,j  - <ai8/aY8)XY  + Xi 

°1  ' (alBbY/aYB) 
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Define  for  all  I^y;  uy  = yg  ; v(  = yj  for  all  Jt<0  ; 

and  V-  = x . 

0 Y 

Define  e^  h ai  } -(alg  n^/a^  ) for  all  IWy  and  j/B; 

eie  £“(aiB/aY8)  for  a11  if‘y>  e yj  - (aYj/aY0)  for  a11 
; and  e^a  = ( 1/a  g )• 


Define  d h b.  -(a.  b /a  ) for  all  1/y ; and  d = b /a  a ) 
1 i 16  y Yp  Y Y Y0 

With  the  above  definitions  equations  (l)-(3)  may  be 
written  via  equations  (5)-(7)  as: 


? euvj  + ui  ‘ di 


u1>0,  v(>0 


u j = Minimum 


(Equation  (11)  follows  because  y-2 , and  therefore  Uj  = x . ) 

17.  Equations  (9)-(ll)  have  exactly  the  same  form  as 
equations  (l)-(3).  Thus,  the  above  procedure — 
i.e.,  steps  (l)-(lb) — may  be  applied  again.  The 
next  step,  therefore,  is  to  go  back  to  step  1 and 
iterate  (using  the  . , v^,  u^ , and  dj , respectively 
instead  of  the  a^  , y^,  x^ , and  b^). 


11 

I 0 


The  above  is  the  algorithm  used  in  ALLOT  to  solve  the 
allocation  problem.  The  detailed  coding  uses  a matrix  frame- 
work to  save  computer  storage,  but  in  all  other  respects  is 
identical  to  the  description  given  here. 
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LISTING  OF  ALLOT  PROGRAM 
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PROGRAM  ALLOT  (INPUT, OUTPUI  ,r*»iSM‘'PUT,lAPI6M0UTPuT) 

COMMON  /«L**/  ,C(?0«1)  *N,N,NI 

Common  /Rl*8/  np,nt.np,nv,»uBj 

COMMON  /RL«C/  JAIN1) ,*4(Sll 
COMMON  /MLO/  Pai?0.?0) •F1p(20,20> 

Common  /BL*t/  PUN,OsC»OIN,«at.»IC,nOl.NU$,TITLE (1ft)  ,OOJCON((|  ,I3«ft 

COMMON  /BL*F/  N|,N?,NJ,lN»r(l|)t,lN»L(A.itl.tN**(*,J»», 

• lNlft(S,l0> . ImU8(».10> , l NAP (20. 10) 

COMMON  /BLKS/  F$tINT  ,MA  ItUl  n VACFnD,F t n! (NjSKpCHk 
COMMON  /BLKN/  NTSUM,NMSUM,w»U«,rLO«UM,r»TSUMtCMPSilM 

COMMON  /BL*I/  V(ni,0CMlNlp|),uCMA«ltHM)CAVt(>l)<O[3L«T(>lK 

• TLO,?U  »CMT(»1)  .CMP(,1) 

COMMON  /BL*J/  MNAMe({«?l).TNA<t|t,*t),«(TPC(|l),TTTP[l(tl|, 

• NUMW(Il)  ,NUNt(2|>  ,VN(Z) > .»«(!!)  *»0(»|»  iClPltU  • 

• PLSOII  •MSM(»1),PTP(»1)  ,MU«(II| 

COMMON  /BL*l/  1*110)  tlAPKpl 

COMMON  /BLKN/  NSFNT,I$UM(*,*oi  ,KIU«')WO> 

COMMON  /8L*Y/  JSPTlit) . JCNOI2II 

Common  /BL*I/  lA,*,?00#).Ut(20ftO),TA<2000),N« 

COMMON  /RIO  / NVU.IU.P 

Common  /Bluc/  8(5i,M>«mi 
OIMlNdON  10C0NT (T) 
lOUlYALCNCl  (PON,toCoNT(n  I 

LOGICAL  PUN,U$C.O!N.NAT»»Ip«M3L»NOa«ORJCUN,IOCONT 
lo*?.» 


00  Oto  TPl'T 
•Oft  tOCONT I | ) »,PALSl , 
iooo  Coll  inrot 
••to  00  lit*  IpIiS 

IF (OBjCOM (I ) ) BO  TO  10)0 
AltO  CONTlNUf 

*0  TO  !••• 

*0)0  I08J.I 

OBJCOniD*. falsi. 


NV»0 

IlOft  CALL  ButLOA 
1000  IFIMATICALL  OUTMAT 

call  oamplc 
IFIMAT)  CALL  DUAL 
|T«(  CAL.  outPUT 
«•••  *°  T0  loll 
|N0 


UNCLASSIFIED 


SUBROUTINE  INPUT 

C NOTE  — OCUlT  I*  Tnc  TaRJET  RADIUS*  IN  Nt'ITICAL  NILES. 

C 

COMMON  /PL**/  • (»! ) . C < ?0t 1 • •M.N.NJ 
COMMON  /PL**/  NP.NT, NK.NV.TOB  , 

CnMMnN  /RKLO/  PK(  70 . 10)  «F  ' • t III  20  ) 

COMMON  /RL*C/  PUN.OS  *<OIN«mAT.yCC.mOi .NUB. TITLE  Halt  OBJCOn(I)  • I DBR 
Common  /Blaf/  ni  ,nt,»  s, iN»r  1 1 »>  ,tn»l ,*.  m , ins*  i»,  id  . 

♦ I MLR  I Si  lA*  . 1nuBi».|0)  . IN*P<I0.I0> 

COMMON  /SIKH/  NTSJM,N»SJM.vSUn«TLO<UM,CNTSUM|CNPS|IM 

Common  /II*!/  V(Tl) .OEmINitI) ,uENA„,T) ) ,uC*vI(Il> .OCOUT  111) . 

• TLOl*I«ir'*T«P»>iCRPl»lI 

COMMON  /BLSJ / BNAMCIl»'M>.YNA«CCI.>l>.BIVPCtIll.TTVPEl|l>, 

• NUMNIPl  I ,NUNr III ) .VNf ll ) .<*U(*1  » I^OIPI)  tCCPlIl)  , 

♦ PL*(»lt  l«S"l»ItlPT»I»Il  iMUMdll 
COMMON  /PLAN/  NSCNT.ISJNII.90I «XSUM(|3.90) 
common  /PLAT/  JSRT(IO) .UCNMIoi 

InTcSC"  H09.VN.to 

LOOICtl  PUN.OSC.OIN.NAT .V6f .NJLtNO«*OSUCUN, IOCONT .COE 
StNENSiON  MHlB)  ,1AP '■&.<)  ,ITA|AO.>)  .Nil*)  .MC|{)  .1  FlO'(T)  .xN(|.») 

0 1 MC  NS  ION  IOCONT, T> .ICON, 9, .LORJIS) ,LI0|T) ,LNUN|1») 

01 MC NS i ON  rABLClI.AO.il .ILRUo.I) .TUBIAO.I) .NENTIP) .NASH) 
DIMENSION  *T*9u?,tO) 

DIMENSION  I>  ( 10)  , JX  1 10)  iOO«U  «i 

caul  VALfNCC  (Fun,  IOCONT  llllil  VMCNT.NCNTU  I ) . intent. NCNT  III ) » 

• (XBlAnk,IBl*NA) • ImI.NAsII) ) 

OaTa  INRFaT.ILCSS.IFOR.  1NUi)T/,nO.  lHL.AMtpoR.  AM*  IN// 

OAT*  LN.tM/lMl.1  Ml . | Ml.  1 Mt.  IMS.  IMS  , ) MT  . 1 MB.  IMS.  I MO/ 

OATA  lST*RT.IBLANX.I*NO.L».LL/AM»Sr*.AM  . tH*NO  .MB.IMl/ 

OAT*  LCON/tN»»,N,AM»TOT.*H»Ni,„4M».iTO.*H«AOO.*N»SiiB,*M«CBntM»e'TB» 

* *M»CNO/ 

OATA  LURU/JMOC  .jMDPN.jMMr  .JNAMT.aNCNP/ 

DATA  LIo/)MPUn.SHOSC.]hUIn.JMN«T.smVCC.JMnOL.1MnOI/ 

OATA  AALL,*EXC,XOTA,*OTB/*mALu  ,*MT*C  tNOTMC  AMP*  / 

OAT*  xh.L *1 R/IMO. 1 M* / 

OaTa  mB.nI'N^EmT/o.OiO/ 

OATA  lPT/0/ 

OATA  CPS/9.****B0001 / 

*ia  forn*ti?oI*> 

•It  ro"M*T IAA.SX.A1.TI1X.A3) .t«.10**> 

• IS  rORMATMX.ITfZX.TAt.TX.At.TO.  3>.Al.T«.3.T(.0.STB.S.)T|0.J,lTlt.I) 
*1 A F0RH*T(I*.I*.*X.»»*,*X,**,T*,I*,»1,H  .FV.l.Fll.I.AFll.A) 

*I»  FORMAT  I/S*. oTOTalS  ■■•Ilt.i6X.FlT.>) 

•1R  F0RMATI3X.II.lX.lniTX.FB,*)) 

•ti  format (•i*.t*x.*  mc**un  allocation  pmoblcr  •»u.»  •/ 

♦ *l*.)A*t//) 

•IT  FORMAT  161 x.*ARSlNAL*//TX.*NAMC<  TYPr  number  HOB  YlEtO*.tx. 

« »CCP  PL»  VSR  PT».  CNl  CMP  N MT*. 

» RX.»N  CRT  N CmP*/) 

•IS  FORMAT 1SB*.»TAR9CT  STSTCM»//Tt,«NANC  TYPE  NUMrCR  VNTA*, 

. A*.  •VALJf  N Va, UC  mIn  Oi  MAX  06  AVC  OE*. 

• S*,»rAOI js»/, 

•?t  format i*!*. in. .or  t*ble*i 

• IS  FORMAT  I /l X ,*T AR set*. 1 AX . ••■AP3N  TY»£»| 

•IA  FORMAT l>X,*TYPC*,SX.10 I 1I.AXI /I 

•IT  FORMAT  I//IX.MMC  SOLUTION  I*  kAMlTFO  TO  THE  FOLLOPlNS  fIApON  VtCTO 
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i*s  •/> 

•FA  FORMAT  u*»#  ALL  *OSSlALC  «tA»uM  YrCTOR*  *ITh  •,!*,•  OH  LfS*  <EOO 
1 »»S  •/( 

• *•  FORM*Tt*«»*  FLJS  »LL  VtCTnM*  uF  TwC  »OwLO.lMO  TYRAI  •» 

*31  Fo*»H*l«t?*»**«*>,M. !*•**».• 

• 34  FOBM«t  (/♦».•  N|MJ*  4LL  Vtr'04tt  OF  THf  FOLLOFINO  TYRU  •> 

*3*  FO«N*M/S*t*TOT*tS 

*3A  FORMAT For  thc  F0LL««I3<*  TA.OCTS  ONLY  ».M |44«*>»)  I 
•JR  FORMAT »/*»••  Fo R »Ll  T»«»rU  t*C£»T  •.»!?»♦#•*•)) 

*4*  format  For  all  t»r»fts»t 

• *t  FOAMAT(14*«2*«A*, 14. I J.*l. T I. I*.»FtO,4> 

«»>  FORMAT |A4»0(lAfA|t||»lA«2A4l > 

•44  FORMAT (TXtIF**  ALL  »0*!>lRi  t F(AROn  VfCtORS  FITh  •) 

*4R  R0RMATn**»A4,AT,t|,»  OTH».  F»*R0N4  ARC  OILtCTtO»| 

• 44  FORMAT 1*1  •* l A #• IN.UT  CAROM.! 

•4T  FORNATIM»tST*t«SUNMARY  OF  MCOULTS./// 

• I *»#RROR  OtJ  0§JtCTlVA«.ri,«TARFCTS«>l)A>«VALUC*«l)l« 

• •FCAR0N4«.l**.»Mt4AT0MS«.l3*.»AMT».l»*.4rMR»/ 

• »*«»NUM  MUM  YALUF  •.!(*«. •TOTAL  RILlRIt 

• 4<S*»»T0T*l  UrH>»|//( 

• 4R  FOrMAt  l«o*>  14 tl3.Fn  •!•»('«  l.F»F0.»l  | 

•4«  FORNATI10(2I2«F4,t)l 

C 

C IN!TJALJ*t  «OUTINC 
C 

*i«o 

MR. MR. I 

COCa.TMuC. 

tSMt 

IF (!Ft«NC<*)  00  TO  1**4 
IFT.I 

Do  1*10  1*1  <20 

00  111*  J.)>20 
FTRII.Jl.l. 

1*1#  CONTIMuC 
122*  ComHhUC 

C 

C RFAO  STAM1  OR  I'O  CARO 
C 

RCA0<IOSRt«14>  ICONT«LN>LFLO«UTLC 
IF tCQFt lOSRl  0000,9101 
>ui  ?0NTiMoe 

IFdCoNT.Ca.ISTARTlOo  To  »400 
IFIICOMT.MC.INOJT  TOO  TO  OltO 

c 

C RROCCS*  I/O  CARO 

c 

00  »••  I*I*T 
lOCOMT 111 ■•FALSI. 

&o  »*o»  j«I«f 

IFILFLUIJl  .CO.LIOtIM  IOCONTI II  •,  TR'i£. 

•for  Conti  hoc 
00  TO  *100 

C RROCCSS  1URT  CARD  g 

>300  IF<LN.AO.I*LANKIOO  TO  93*«  | 


C-3 

UNCLASSIFIED 


UNCLASSIFIED 


00  51l»  laid* 

I'llN.tQ.lNUMllltNIal 
*iis  coNiindr 

IF  (Nl .to. lOINlafl 
irtMl.OT.il  80  TO  *000 
Ills  JStoaO 

00  Silo  laid 
ORJCONI 1 1 a. FALSI. 

0o  ills  Jal.s 

IF ( LFLU ( J) * NE. LO* J( II 1 80  >0  S1J0 
OSJCONI | I a. TRUE. 

JStoel 

>110  CONTINUE 

If ( jSa.CQ.OI  Ntal 

IF ( JSa.EO.tlOSJCONlI |a,T*u», 

»*00  *C*0(ltoSR.***lICONT 
C 

C OFCOOt  CONTROL  CARO 

c 

*♦10  00  5**0  1*1  a* 

IF  I ICONT.EO.LCbNt I 1 ) *0  TOnO*0.101«>lO0r.l0lTt*l0*.*l**t*O**.****« 

» io<oi .1 

»**0  CONTINUE 

lFtlCONT.tO.*M*FTF>  *0  TO  |*00 
IFUCONT.CS.AHacoLl  *0  TO  UOO 
•0  TO  t«0* 

: 

C INFUT  M| anon  information 
• 

'*000  COCa.faLSC. 

JStoal 

NtoaO 

la* 

1801  lal.l 

*EAO<IOSR.»*1 1 lCONT.ltoNANttJ.il  (JaiiZI  .aTTSltll  .NUNtodl  .Dl.O*. 

• mo*  1 1 1 . no  1 1 1 ,ce*  1 1 1 .Rt»  1 1 1 , to**  1 1 1 ,*tr  1 1 1 

IFMCONt.NC.IBLANKISO  TO  too lo 

IFlNto.ST.lOI  *0  TO  *0*0 
IF  (HO*  1 1 1 .Nt .*1  NO*  (Hal 
MO* 1 1 1 *H0*  1 1 1 ♦ 1 
IF (FL*  • 1 1 .£0,0,1 0^8  dial, 

!F(toSmI).tO.0.lto}RIIIal. 

IF (*'*«!! •t0»0*|RTFll|.l, 

I NT ( I I avLO( I I ••.* 

IFlTLOm.LT.l.lCMTdlaTLOiIlaai?.,!., 

IF(CEf(I|.*T.*.|*0  TO  l«*J 
CNF 1 1 1 •!. 

*0  TO  ISO* 

1001  CSQal  t*OaCEF  1 1 1 aCEF  1 1 1 

CNF ( 1 1 aylO 1 1 1 aa ( t> /1( | /C$y 

IF (TLOI II .LT, *«*| CNF ( I ) aTLnl 1 1 •* I .al /C*S 

IFICNFIJl .OT.l.ICNFIllal. 

*00*  *0  TOI'OOldtlOl  .JSto 
C 

C *F AO  Nt*  "EAFON  NUnFER* 

c 

t**T  RCAOI 1U1R.010* (NUMtot Jl . Ja l ,NSI 


C-4 

UNCLASSIFIED 


UNCLASSIFIED 


■a 


60  TO  SAOO 

c 

e 1NPJT  TAROfT  INFORMATION 

c 

toiA  coe«, f»lse. 

JSMal 

NTbO 

1.0 

ton  i.i.i 

READ ( IUSR«9*1 1 I CONTi ( TuAMt i J, I » • Jal >2 ) • I TT»E « I » .NURT ( t » >VN( I ) • 

* P0d>,»O(Il.ud>.0ENtN|?>,OENAxd>  .OE*V|i(ll  .JEOLTlI) 

IF ( I CUNT . NEa IBLANK) 30  TO  »«lo 
MT»I 

IF(NT.6T.20|  60  TO  >000 
IF|DCM4N<I>.IT.EP$>  DEMINITlao. 

IF(DEmax(I>.CT,EPS>  OEmAXiDb,,, 

IF (A8b  (OEAVE ( 1 ) ) .LT.EPS)  UF*VIKl)a;. 

IF(OEDLTlI).LT.EPS)  OEOLTtflao. 

IFIV(I).LT.EPS)  VIDal. 

IF (OEm*x  1 1 ) .EQ.n . ) OEN*X ( I ) al . 

90  T0d611»*060)  ,JS< 


C RFAD  N£P  TaROET  NUMBERS 

c 

40 1 T RE*0(IUSR.»10> (NUmT( J> . Jal.NTl 
>0  TO  >400 
C 

C CHANGE  OR  XOO  NEAPON 
C 

*ooo  cdeb. false. 

JSNb? 

IaNW 

30  TO  *00l 
<010  KaNH-1 

Do  2§2o  Jal «K 

tF(MNANCdiJ>.EQ.PNAHEddl  .AND.  mNaME  (2.  J)  .EO.NNAMCiI  2t  1 ) 
» NTYPEtJI  .EU.MTYPEdl  >30  TO  2030 
<020  CONTINUE 
90  TO  1001 

<030  NUMW(J)aNOMNd> 

HO>(J>aHO>d) 

TLO(J>BYLOd) 

5EP(J|aCEPd> 

PLS(J)apLSd) 

<SR( JlawSR(I) 

PTP(  JlapTPd) 

ENT (Jl «EHT l I ) 

CMP ( Jl aCMP (I ) 

I-I-l 

NNaNM-1 

00  TO  1001 
C 

C CHANGE  OR  ADO  TARGET 
C 

<090  COEa,FALSE. 

J$Na* 

1 .NT 

90  TO  ‘Oil 


• AN). 


C-5 

UNCLASSIFIED 


I 


J 


UNCLASSIFIED 


««6ft  *»NT»I 

?f, "I*  tfi^Cs.TN.ae,i. rM*"Ci»,J».ta.T»i*nt'Ut*»  •»<». 
* TT»*.rul*£“«TTr*C<Il>8u  '0  20S» 

E«TE  CONTINUE 
So  TO  »•>* 

ESS*  HUNT  t Jl aNUNT 1 1 1 
«N(J)aVN(tl 
Efl 1 Jl  ■*'0  < I • 

*Dt  j)«»nU> 

OCNIN|U)«OCMIN(l| 

OEM**  < J|  •OCNS*  1 1 ) 

oe*ve 

otott  t J»  ■OCOLT  u> 
iai-i 

nt«nt-i 
•o  TO  1*1* 

C INEUT  *00  »N0  SUB  CiEOf 

c 

• IBS  lCaI»a 

IF(IJ«.eO.J>00  TO  ***• 

!»«■< 

00  21  Ta  Kal,2 
IlaM 

IE  (K, !«*.*>  II«NT 

00  «!*•  l«‘>l 
00  fits  laltll 
IE lLtCa.2) 00  TO  (lit 
«».TN»»t  (Hll 

«OaTN»«E<E»t> 

IElK.Eu.ll  **•*«(» m£1  It  I) 

IEIE.EU.ll  *Sa»N»«C(2, H 
SO  TO  M2« 

<110  MaTTTEflll 

lElK.Ea.l)  *»«STT»C«t> 

*Ba*ll.«NK  

411,  IEC**«£Q«*SCANK  .»NQ.  *S.EO.**I.SNK)So  TU  71»D 

IE  ntaE^I^  •ENoI^L«EO*2  .»*•«,  *«.EQ.T*SLE<ltN».KM«0  JO  «»0 

?E(*i?Io^istC«1.J.E)  .«“»•  *».I0.T*SLE«I.J.«»>tO  TO  t|IS 

eij»  Continue  ■ 

EU#  N*«N»») 

r»8Lt  i> ,n*«e)»** 

T*BLf (2,N*»E|«K* 
lLS(N*tEl»I 
EISA  IlEMNSxOal 

eiss  Continue 

El TA  NENT(KlaN» 

ESSO  JSa-0 

N»aO 

nOal 

IEdC.EO.U00  TO  2SIS 

Mali 

KBt»l 


UNCLASSIFIED 


UNCLASSIFIED 


NAaNA.AR 

«»•( 

f*eA0UUSS,»*2)  ICONT.  (IABIJl  ll««  ( J.HAl  .AN(1  .J)  .XN|2. J>  .J»l  .0) 

IF(INS*|6.NA),LT.D  iNSAla.NAi.o 

JAalC-l 

JBal-JA 

IFUCONT.C8.IFOA)80  TO  22»i> 

IFUCONT.Ca.lBLANiOBO  TO  2P1S 
IF(IC.tO.|lM2«M»-1 
IF,IC.I0,2»N3.l0-NA 
BO  TO  »4l0 

IF(KSa.F0.1)90  TO  »I0 
IFUSa.ro. 1)00  to  trio 
J$«al 

Oo  <»•  I a 1 .NT 
lN*F(I«MO)aJ* 

30  TO  2310 

00  22»*  I al .NT 

lNAP<|,NA)alNAF(t(NA.KB) 

00  TO  2310 
KSNa| 

JSMal 

Xal 

IF  (XNI1.1)  .NC.XALL  .0*.  *N|2,|  t.NC.XCxCieo  TO  IIBa 
XaZ 

JAalaJA 

JBa|»J* 

Oo  22T»  I al .NT 
lN*F|I.N*)aJX 
DO  230»  JaX.6 


DO  2200  Jal.NTCNT 
•F (XN | 1 . I ) .CO.TASLC ( 1 . J.t)  .A*O,XN(2.D.C0.T4BLC<t.J.2)l30  TO  22Bo 
CONTI  N»t 
SO  TO  221S 
LAalLBt J.2) 

LBaIuM(J,2) 

00  2)00  jaiA.LB 
iNAP ( J.NA) aJB 
>0  TO  2210 
00  23*w  1*1.0 
Inal i i.na) *1 

IFUAilD.Ca.L8  .OR.  lAB(l),Ca.IBRFAT)lNHL(I.NX)ap 
lFUABID.Ca.LL  .Or.  I AB  1 1 i .CD.  ILCSS  1 1 *hL < I ,NA> br 
IFIXNII.II.CO.XOTA  .ANO.  Xn(2. 1 ) .CO.XOTP) BO  TO  2>A0 
IF( I ,Cu.O) BO  TO  2r90 
00  232u  J*1.N*CNT 

IFIXNI1.I).  CO.  TABLClDJ.il  .Aau.XNl2.il  .CO.TASLC (P.J. 1 1 ISO  To  IJ3o 


CONTINUC 
BO  TO  233 


SO  TO  2330 
1N3C (N*l al 

.'Ml.'iSi-'Wli:!! 

INAL (O.NAI 
80  TO  2210 

lNSW(k.NA)alNSM<l,NA) 
iNAUO'NAlalNALIDNAI 
Bo  TO  2210 


UNCLASSIFIED 


UNCLASSIFIED 


C INPUT  footprint  efficiency 


CWOF  CONTINUE 

RCADUUSR»**9)  ( I M ( K » • JMM  tOjMtK)  ,ftal  .10) 
Do  123V  Kal t 10 
!•!*(«» 

Ja JX  (Kt 

IF(I.LI.l.OR.J.LT.l)  *0  TU  s*00 
FTR(I,J)aOjM(K) 

1130  cONTlNuf 

SO  To  I?00 


C 

C COLLOTEPaL  OXNXOE  factor 

c 

1400  CONTINUE 

00  1320  jal.NV 
XVfatS.avlOlJ) 
«rIa*UatO>]jj 


DO  1310  1*1  a NT 
IriVNUi.0T.15i  so  TO  1 310 
FTPM»JlaFTP(I.JtaXYE 


1310  continue 

1420  C0n'InuE 

SO  TO  0400 


c 

C OUTPUT  *£*PON  INF0RN4TION 

c 

1020  BRITEl*«9211NPt TITLE 
VR!TE(*.922| 

NVJUN  ag 
TLOSUNag. 

EMTSUNag, 

Cmpsuhbo. 

00  102?  lal.NV 
01 aNUNa ( I 1 *YLD 1 I ) 

02aNUNB|l)»ENT(II 
03*NUMa ( I I *CMP ( I ) 

«aLS 

IriHOHdl.NC.llKaLAIP 

PRITI<*t9151I»(  VN4MEI  Jt  I)  • .1*1  • 21  t VTVPr I 1 • tNUNO  (I).KiTLO(I)  .C£P ( l)  * 
♦ PL*(I),a$R(Il.aIPll),ENT(n.CMP(I).0l,nt,03 


NWSUN  a n*SUM«NJMV(I) 

TL0SUN»YL0SUH*01 
EMTSUaafMTSUM»07 
1029  CMPSUNaCMPSUH*03 

VPITE I 9,937)npSUM. YLOSUNiialSUNi CNaSUN 
C 

C 0"TPUT  T»m8eT  INFORMATION 

C VRITE'6.923> 

NTSUNaV 


VSUMaO. 

Oo  103»  lal.NT 
01 aN^Nl ( II »V( I) 


PRITEIP.910)  It  (TN»NE(J,n  • 1*1  .2»iTtYreUI  .NUHTIII 
♦ (I ) .V  ( 1 1 ,OltntMlN(I ) ,OEN*  x 1 1 ) .DE*  YE 

NTSUNaNT$UM*NUNT  ( 1 1 
1030  VJUM  a vSU**01 


.VN 


i« 

i 
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UNCLASSIFIED 


UNCLASSIFIED 


( 


L 

li 


i. 

11 

E 

i: 

f • 

i: 


VRITE(6,91T)NTSJM,VSJM 
CALCULATE  DC  TABLE 


if<cpe>oo  ro  loie 

DO  1039  I.l.NT 
ITal 

Ifipoi ji.ta.xaiiT.? 

DO  101>  JvliNV 
PAvPLSl J)»VSR( J)»PTP(J) 

T.100D.«YLO(J> 

CSAVE«tfP(J) 

CEP  I Jl»SO«T(CEP(  J)»CEP(  J>««.4»6oT6.»6>|TO.»DEDLT(I>60EGi,T(I> » 
CALL  UPOX ( VN(l ) , 1 T . AD ( I ) . T ,LE 9( J)  , mOB  ( J) .PD.DC  »DT) 
CEP(J).CS»VE 
PK(I.j)  sPA*PO 
103A  CONTINUE 

e 

C OUTPUT  OE  TABLE 


I03P  VRITElO.O**) 

II— • 

•BAB  Uall.lO 
JJall.V 

IP  (JJ.vt.NP)  JJaNW 
PRITE|*,A*») 

PRItE(»,9|6) (I.Iall.JJ) 

DO  1069  I»l.Nl 

»OAB  PPITE (O.OlO) I. (PK ( I . J) . J*1 T t JJJ 
IP(JJ.«e.N«)00  TO  1 0*1 

C OUTPUT  VECTOR  SPECS 
C 

IP(NI.NJ;"T.lO)  SO  TO  BOSS 
VRtTE(*,9*T) 

VRITE (6,9?0|N1 
00  1|A*  KS*1 .2 
RCvNASIKS) 

IP(RC.A0.0)SO  TO  11*0 

ICaJ.PvnB 

jSaZ.pP 

tP|KS.E0.I)RRITE(0.«{0) 
IP(KS.EO.2INRITC(A»01A) 
so  Ilia  lal #KC 
Kal 

IP(KB.Eq.2)MU>I 
IPd.EU.llOO  TO  litg 
00  I0SA  Jvl.NT 

IP(INAP|j.K) .NE.INAP ( J.Kalr) ) SU  TO  lOAO 
tOSB  CONTINUE 
SO  TO  MOO 
<000  DO  ISA*  Jal.NT 

IP(INAP(JiA).NE.JS)SO  to  l*To 

toss  CONTINUE 

VRITE (6.9A0) 

80  TO  1100 
10T«  00  10T9  J«1«nT 

1AP( J.i)alNAP(J.K) 
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UNCLASSIFIED 


UNCLASSIFIED 


!F(KB.ta.Z> IAP(J,l>al>1NAP,J(<| 
107*  al*I*P<J, | ) 

00  10*»  I Iala2 
NC 1 1 1 > a« 

1*0  100«  Jal  iNT^MT 

LaNTtNI.l-J 

LAaILB«L.2> 

L8aIutf(L,2> 

00  10*0  JJ»L*,L* 
iFIlAPtJJiID.NC.llOO  TO  inOO 


UNCLASSIFIED 


192ft  R|M)»NUMTlD 
J«0 
97  »M 

DO  )«3u  I**.NT 

IF  (DE»  *£  ( 1 ) .EU.ft,  ) SO  TO  i»J0 
IF<J.£“.0l  J»I 

IF(OE»VF(I).LT.O.)  30  TO  IqJO 

m.m.i 

IF(H.«1,50>  GO  TO  Rooo 

*L»0. 

Do  1»*»  K-J.I 


XLaXL.v ( K > AFLOAT (NU9T IK) 1 
1929  CON^In^F 

ft .M,«.»l«OE*VE(I) 


L»M- 

1F(L 


"2 

.01 


,20)  SO  TO  0000 


JSRT  < L > ■ J 
JFNDiD.I 


J«0 

i93o  Continue 

IFIJ.Nt.O)  SO  TO  Root 
RETURN 

0000  PRITFI*.**6) 

STOP  1 

»000  *"IT£IP****> 

DO  91ow  Jftl.NSENT 

(RITEl».9*G) (ISUN(I,JI,I.1.2).(XSU«1I,J).I.J,13) 

*100  Continue 
stop 

ENO 


C-ll 


UNCLASSIFIED 


UNCLASSIFIED 


»NT|6c«  t • n » vn  * ' ,r,r,Hf>,»D*nc,npjr) 

*"•*•* 

iiii 


i 


* 1.6690*  . 

8 -l.*****  * 
°*T*  0 / *6B>, 
■p.s/Tsr*  t 

-1.957## 
•2.00456 

•5.0»0«l 
•*•66796 
*•*•*661 
-12*7465 
♦ *0** 

•0.7*6917 
-0. *1)971 
•0, 9/6)07  , 
•1*90117  , 

•>•*0*63  ■ 

*7*S((9o7  , 

*3*7*376  , 

•♦•3*?9*  , 

•*•0*000 

( r . . 1 1 _ 


. 

. 


.7,17447 

.7.1*4** 

1.56914 

3.37978 

*.3*1*3 

*.74?4l 

16.7777 

19.6336 

26.1959 


: *sb»s 

iS  ® : 


28.9801 

'■.99§, 


45 


«*V**l.i,/J  ) 

VaUllAn  _ 


0.798065  , 
1,7207* 
2.83679  , 

9.19647  , 

*•91548  . 

8.17913  . 

11.3177 
16.0486 
74.4300 


• • • ' Jf 

> "#.225»9o  , 

> -0.841780  , 

•7.37475  , 

•*•98146  , 

: i*.2i 7.  , 

•36.5*44  , 

•8.0396065. 
*0.18*«10  , 
•0,51 | 450  , 
*1*13340  , 

•2*73o?5 
*9* 1 1 6p6 
•7.35*13 
”1 7*21 | r 
*2*. 367* 


*#  I ' • •▼*• 

•0.3456*6 

*0.513504  , 
•0.476886  , 
0*3150*7  , 
3*11971  , 

12.21*4  ; 

0*0011575, 
0.00***l9, 
0.0514460. 
6.181180  , 
0*484749  . 
1*12029  , 

2*37672  , 
♦•«066*  , 

1 0*643o  / 


;•;••<•!. /s.i 

w;,M“6*-f*  ,•  rrr/r*  * . 

U.8/C 

Hiftftiws  ?;  »; 

0*oc..u#oo0u%  * ' 9 ‘ ' r ’ *2,“ « J • n 90*3»8 » 4 , r ) .u.u, 

RT"* 1 l''0,ov*D''o*>  2 1 j»c»r, 

lo  7.1. 

90  TO  3« 

20  7.0. 

Jo  opoc.o. 

OpOy.0. 

oeroRw 

two 
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UNCLASSIFIED 


UNCLASSIFIED 


subroutine  build* 

COMMON  /BLftA/  B(S1) tC(?001l •M.miNI 
COMMON  /BLAB/  NO . NT . NO . NV  « TOO  J 

COMMON  /8L«F/  Ni,N?,NJ,IN»rtl#I.IN®L(»,IO).IN*B|*.JO>f 

♦ tNLA<S,l(U.lwU8(».10l  *|NA<M2StlO> 

COMMON  /BUBO/  FSTINTtMAItuI  «VOtFMO,F INl»N,SAPCM* 

COMMON  /BL*I/  V|?1).DCM|N(»|l.oC"A''tZl).OC*vC>t21>.Of9L'l2l>* 

♦ VLD(21>  .EMTioll  .CMPOll 

common  /Bl*l/  i»(?o>  .i*p(b»> 

CoMMqN  /BL«/  UW.2000>  .U.(2oOO»  >Y»(tO«»)  .MS 
COMMON  /RIO  / Nva.Kt.F 

LOGICAL  FSTENT,MATFuL.vECF«jO,iroNlSM,SKPCMI( 

Do  1001  I®  l *800(1 

*001  I A ( I ) ao 
NXaNa.MT 
K«N>*I 

Do  hob  i.i.nt 
»00P  I*P(I|»I 

SKPCMAa,T«UE. 

MANI-0 
MINI  SO 
Lai 

*008  00  IOIU  laL.K 
Jal.I 
NVBaJ 

CALL  CMfATt 
*010  MXNlaJ 

SKPCMAa, FALSE. 

ifin2.ao.*>  go  to  uto 
oo  mo  i«*.n2 
OO  low  J.l.NT 
*017  IAPlJIMNAPUtl) 

KAal 

CALL  KMCATI 
*020  NXN2a| 
tlTo  MaNV*M.NT 
OaNV.l 
LaNV'NB 

Oo  lSlv  JaK.N 
1*10  C(J)»0. 

01»0* 

!F(NI.(Q.o>  GO  TO  1110 
00  112m  Jal.NV 
C (Jl»0. 

1420  C0N'INUC 

Go  TO  11T0 

i4io  continue 
nb.nt.i 

Oo"li*0  j.nB.nE 
c< J)a.C(J) 

14*0  Con'1nUF 

00  llou  taWNT 
OlaGl »• |NB»I )*C |1) 

00  USO  JaNB.NE 
CALL  AM«T<n«*I* J.A) 

C(J)aCIJ)*A*C(l) 


C-13 


UNCLASSIFIED 


CONTI NUF 
i continue 

WTO  CONTINUE 
»(H.l )»Rl 
nr turn 

END 


UNCLASSIFIED 


U 


f • 

L 


function  osjectuc.it. pi 

COMMON  /Bl*B/  NP.NT.NB.NV.tOBJ 
COMMON  /RKLO/  PK(?O.ZO) .FTbIZV.ZO) 

COMMON  /BLKI/  V(?|),0CmIN(>1),JCM*«(2U.OE*VE<21)  .DOLT  IZ|  I . 
» tlo<zh*enTi»ii,cmp(»i» 

COMMON  /BUKl./  IRlZOI.lAPIZn) 

Common  /rED  / nvv.ka.F 
dimension  Ivpoi 
dimension  oajizi.si 
EQUIVALENCE 10B J I 1 . I ) • DEAVE 1 1 M 
OAT*  EKJ/O.VOOOOOOOI' 

ICnTbO  * ' * 

Ml. 

00  60  1*1 .Nr 
IEUC.LE.0>IN»I»(T> 
ip(IC.»t.o>  c;ll  »matii.ic.A) 

IE(IC.Ot.O)  UbIETX(*«6.5» 

FSal.-KmlMl 
90  IFIIN.LE.OIOO  TO  60 
PaP*PS 
ICnTbICnT*! 

IBP | ICNT) ■! 

IB*IB«i 
3o  TO  *0 
60  CONTINUE 
Fal. 

IE(ICNT.EQ.O)  so  to  To 

ft: 

00  PS  l.I.ICNT 
JalttPli) 

EbE.PKIIT. J)*ETR(IT. J) 

$aS»PK ( IT*  J) 

69  CONTINUE 

f*f/s 

To  CONTINUE 
OBJECTapaP 

C CHECK  MIN  AND  MAX  OE 

T9  IFIP.8T. I. •0EMINITTI.EPS. AnO.Pi.LT.1  ,-EPSI  90  TO  80 
if(p.lt.i.'DEmaxiit)>eps)  au  ru  ao 
60  TOlloo. *00. 3oo.l00. 3001 ,100U 
So  0§JECT*100l. 

RETURN 
C MAX  OE 

100  OBJECTAVlimOBJECT 
RETURN 

C MfN  meapons 
zoo  OBJECT«ICNT 
RETURN 

c min  megatons,  emt.  or  cmp 

300  objects. 

IFIICnI.EQ.OI«ETUrm 
Oo  310  lal.ICNT 

lOalVPII) 

310  ORJECTaoBJECT.OBJIIQ.IOBJI 
RETURN 
END 


UNCLASSIFIED 


UNCLASSIFIED 


[ 

l! 

[ 

l 

I* 

l. 


*060  00  11IU  J.l.NSS 

IF|J,Ew.NSS  ,*N0.  NSEC.6t.o)3D'  TO  10*0 
ISIZEI J).1NUb(J,KA)-INLB(J.KAIM 
80  TO  1090 
*0T0  ISIZE (N$S> *0 

igSO  ?8lZe?NsS*i!S!lEtNSS)«jU(K|-JL«K)., 

*090  CONTINUE 

lO-ISUE(J) 

IR(J.!0).NSM(J) 

1F(ISUE(J).CQ.1)B0  TO  111a 
U»I5Ut(J>-l 
00  llow  K.l.L 
HOO  1R(J,ki.O 
lllfl  IFL*<*)U).  .TRUE. 

C 

c transfer  ir  sections  to  irr  if  h section  h«s  chanseo  (Iflas<i>.trje> 

c 

UOO  IFINS.EO.o'OO  TO  1220 

00  HIS  t wl  t NS 
IF(.N0T.IFLA0(I))30  TO  12U 

1 FLASH)..  FALSE. 

MlSlZtd) 

L"INLBM,AA).l 

00  1210  J.l.K 
LNLM 

UlO  IRR  (L)  «IR  d • J> 

uis  Continue 

c TRANSFER  IR(NSS)  TO  IRR  IF  II  HAS  BEE"  CHANSEO  (IFLARINSS) .TrJC) 

C 

1220  IF ( .NOT . I FLAG (NSS)  .OR.  N»eC.(U.o>RO  TO  123S 
IFLAS (NSS) •. FALSE. 

K.o 

00  12 JO  I* 1 .NSEC 
IA.JL(l) 

is.jud) 

DO  12J0  J.IA.1B 
K.K.l 

U3o  iRRlJ).IR(NSStK) 

C 

C CALL'  INSERT  ANO  *ETURn  1 IF  >hC  a HaT»I*  IS  F^LU 
C 

1239  CALL  INSERT 

c SIIHR  ONE  .PN  OOWN  ONE  PLACE  >|F  ALL  2PNS  ARC  AT  BOTTOM  SOTO  |26o 
C 

1. 1 

1**0  IF(lRd.l)  .EO.NSW  (1)1  80  To  1260 
IFL*3(I)..TRU|. 

J. | 

1250  J.J.l 

IF(lRd,J).LT.liaO  TO  I25w 
IRd.J).IR(I.J)-) 

K. IRtIH  )«1 
IR(I • i I *o 
IR(I,J-1).A 
SO  To  1200 


C-17 

UNCLASSIFIED 


oo  o 


UNCLASSIFIED 


REINITIALISE  SECTION  I.  IF  I»n*S  MET J»N  ELSE  INCREMENT  1 

W6A  IFLASllla.TRUE. 

IRIItll.O 

loaisurm 

1»<I»IN)»N*N(I) 

I*I»I 

IFH.LE.NSSIOO  TO  li*0 

RETURN 

END 


C-l8 


UNCLASSIFIED 


SU8R0UI INC  INSERT 

COMMON  /8L**F  9IS1 I •C<?001< • M.n.N/ 

COMMON  /Bl*B/  NP.NTtNM.NV. TUB J 

COMMON  /BtBE/  N1  ,N?,n3,INsM1NI  ,INoL(A.10I  .INSM  (6.10)  . 

• tNLRIS.lO) •iMuB(9« 1 01 • INXpIZO* 10) 

COMMON  /RlftQ/  FSTFNT(M*TFO|  *V[bFNO,ElNI»M(SK»CMK 

COMMON  /B(.M/  V(?l)  ,OEmIN(,1|  .0EM*,(2M  ,OE»vE(21»  ,0E3lTI2U  * 

♦ FLO(?Il«eMT«»l).CMRI»I» 

COMMON  /BLUE/  IRRtZOI fl»Pl»0) 

COMMON  /BL«Z/  I*(»,?OOil .u»(2»00> ,T*tF0»0) ,N* 

Common  /R£0  / nvr,k*»f 
DIMENSION  INlZOt .IClZOI 

LOGICAL  FSTENT.M»TF0(..nECFmO,f»NIsm  SKPCh* 

00  5 l»1,NT 

% iNlllaUPU) 

IF<n3.RQ,0)  GO  TO  100 
OO  So  lal »N3 
Xall-1 
GO  S J«1  i NR 
B !C<J)ai 

KSa]NSC|K>»l 
Oo  *0  JeltXS 
**■0 

ifij.eu.ksigo  to  8 


KRaINHU  J»*> 

RN.INSriJ.R) 

KL«INkaiJtR) 

KUalNUBI J»*> 

OO  T L*KL *FU 
KXbkXMrrIL) 

T ICILIaB 

SO  TOUj,20»3o»*6l.KR 

• RRalNMt(B.R) 

XNa I NSa { 6 , A) 

DO  9 L*1.NR 
9 KXaKJt»ica>*Ift"IL> 

90  TO  (10«20>30>*0> t«R 
IB  IFIKX.Nf.KNIOO  TO  90 
90  TO  *0 

tn  if<k*.le.*n)GO  to  so 
GO  TO  *0 

10  IFIKX.Bf.KNIQO  TO  SO 
90  CONTINUE 
iSWaO 

DO  *S  Jal.NT 
INI JlaiNI J)«IN»R( J,K) 
IFlINIJ).NE.O)ISRaI 
*S  CONTINUE 

IFIISR.EO.OIRETURn 
9o  continue 

100  IFINV.EQ.O  >09.  SxPcmKIGO  TO  ti0 
00  120  ral.NV 
Oo  llo  JbI.Nr 
COLL  RMrT (JtlvA) 

LRalFIX |A*0«S) 

IF(IRMIJ) .NE.LA)  oo  TO  12» 

lie  Continue 
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UNCLASSIFIED 


UNCLASSIFIED 


JbN» 

m j.j.i 

C*tL  »NAT(J.I.»l 
IF(i.Etf,o.)  SU  TO  11* 

INI J-N").o 

120  Continue 

>20  00  240  i.liNT 

ifiiniI) .ta.oiOo  to  2*6 

CINV»1)«0*j£CTl8,I,r> 

IFICINV.I) .ST.lOOO.)  SO  TU  29* 

NV.NV*’ 

lAll.N*).! 

0*IN»»bV(I'*(T-i.)*E 

T»(NV|.F 

4.1 

Oo  **•  J.1 »N« 

IF(IRRIJ).EQ.O)  00  TO  240 
IFIIRRIji.ST.d  gg  Tg  230 
4.4*1 

I»(4.N»».J 
BO  TO  240 
210  CONTINUE 

IFIIRNIJ) .E0.2)  I A 1 4 1 NV) . J 
IF(lRMIJ) .CO. 3)  I*(J»NV»«J 
240  CONTINUE 
ISO  CONTINUE 

ifinv*«.nt.lt.2s66>  return 

0RI TE l*( 1001 1 
stop  j 

tool  format i.i  mcapon  vector  ltnit  ExcrEoeo** 
End 


UNCLASSIFIED 


r 


ii 

r • 

i . 


ii 


c 

c 

c 


SUBROUTINE  SINPlE 

common  /RL**/  8(SH,C(2001,.m.n.ni 
Common  /Bl*®/  nr,nt.nn.Rv.t°8  ' 

COMMON  /8L*C/  JA(51> »*»***» 

COMMON  /BLJE/  8(51 .511 .Ml 
OImErsION  0,5l,tE,5,, 

0*T*  EPS/0>«00«00001^ 

INIT1»LII»TI0N 

lFLA8»y 
MUM*  I 
NEmNV 
NMaN«N{ 

N 1 «NN*  • 

DO  *0  U*»R* 

00  jO  Ua|tMj 

10  ®(1.JU«. 

D(t)aB(I> 

0(1. IU1. 

>o  Continue 

ie(nZ.eo.o)  o°  to  »o 

00  30  l.l'« 

30  D(IUO. 

♦o  CONTINUE 

DO  SO  Ut.NM 
5(1  J*(IUNE»I  . 

00  80  Ut.R* 
llaNtfal 
lZaNM«NT*I 
JAdlUl 

irdz. ja (I?une»nm«t 
Go  CONTINUF 
JA(M»l*Nl 
Do  To  ial *RI 
T«  X A ( I ) ,U ( I ) 

ITERATION 

100  CONTINUE 

?0  Ho  Jal.M 

F(0(I).LT.0.)  80  TO  120 
110  CONtINuE 
IfLAGal 
So  TO  *00 
120  Continue 

ITal 

JSaO 

5o"l$0  Jal.NN 

CALl  Ax(IT.J.TT) 

IE(TT.(,T.AT.EpS|  so  To  I3u 

XTaTT 

USaJ 

130  Continue 

iFUS.fcO.OI  GO  TO  500 
ISaO 
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UNCLASSIFIED 


UNCLASSIFIED 


loo 


ISA 


rT»-l. 


DO  UO  ).1.N 

CALL  »»(I,JS,TT» 
dlla*' 

IF  (TT.LT.el**)  00  TO  |*A 
iriom.iT.o.)  so  to  »*o 
rr»0(i)/rr 

Id*T."T.TT,ANO,vT.«T..O.*i  Oj.  TO  1*> 
TT-1T 
I Sal 

CONTINUE 

lFdS.LQ.OI  IS* IT 
V»LL  **(N».JS»TT| 
l<Nl>alT 
>0  !0  *00 
Continue 

JSaO 

*TaO. 

Oo  ?lo  Jal.NN 

C*LL  *»iNI.J,TTl 

IF (TT .LT , AT •EpS)  So  T0  tlo 
KT«TT 


>10 


MO 

*00 


110 


1*0 

130 

ns 


.VT.OT.-o.*! 


JS«J 

Continue 

lFUS.LQ.Ot  oo  to  sot 

I|n1>*kt 

ISaO 

S !•*  •" 

CALL  *» ( I , JS.TT) 

FlJIaTl 

IF(TT.LT.IFS)  00  TO  Mi 
lTaO(II/TT 
IF (If. FT. TT.ANO., 

TT«IT 
ISal 

Continue 

lFdS.LQ.OI  so  TO  soe 

Continue 

JAdStajS 

K-Sli'i.,.., 

C(tla.A|M/TT 

ConTInOF 

(IlStal, /TT 

DO  1*0  Jal.Nl 

lFd.IU.ISI  00  TO  ))S 

0d)aO(I)*(dl*OdS) 

00  1>0  JaliNI 

0(1.  J)aoiI.J)*CdiaO(IS.JI 

CONTINUE 

CON'lNuF 

OdSlalMSiaOdSt 
DO  }*S  Jal.Nl 
•d*.JlaEd»l*0(|S,  j) 
CONTINUE 
OO  }•*  tal.Nl 
*A(l).U,l) 


•0  TO  at* 
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ii 


UNCLASSIFIED 


UNCLASSIFIED 


u 

JSA  CONT|NUf 

if* iFt«n.ia. i*  no  to  too 
so  to  i so 

C SOLUTION 

c 

♦on  CONTI NUf 

IFIOlNIt.SI.O.)  Rf T JRN 

•os 

So  TO  'so 
♦on  "*!'£ In, 100?) 

TOO  CONTI NUf 
STOP  » 

*001  FORMJTI.I  PPOStFN  INPr*S4«4.e») 
• OOF  F ORNO T I • 1 PROSlCN  UN*OUNUFt>«| 
(NO 


( t 


UNCLASSIFIED 


SuHHOJMNC  outh*t 

COMMON  |l5,>.c<l#0l'*M.N.N, 

COMMON  N»,nT.NN,M».»OOj 

®IM«N*ION  IN( »Ol ,M»,»0, 

Oo  lit  laliN 

J^C****  OOlTt (*,^00 ||Jt  |a)  , Na)  1 1 J(  Ja|(NTI 

00  1|«  jb 1 1 M 
e*LL  *m»T(J,I,«| 

L*«lf l*|»»t,») 

MtuiBUBsa*) 

10*  tONTTNOf 

lit  «tTrt*,«iot  l.Cti),(M*u>.j.i,Mi 

“o  I?0  r.i.N 

1*0  tNU)B<M|S|t'])>«e,| 

*»tTC»0,ftO| 

Jag 

Ka  | 

lit  JaJ.l 

Halt#* 

®0  i*0  f a 1 tM 

ltiK.ui.iNiitiso  ro  Da 
DO  CONTlNWf 

oo  lgt  L.i,j 

KbK/IO 

00  Do  Tal'N 

ISO  IMIIIbnoOMNIII/k.Io) 

“•  •"‘TjD.OJOlUmn.lBUMI 

::: 

*fo  o0»m»t  (/?*,•• 


*J#  tSoH*T 


e-J'i 


UNCLASSIFIED 


UNCLASSIFIED 


SUHHOJMNE  OUTPJT 

COMMON  /RL*A/  .C'/OOI1  *M«n«MF 

COMMON  NP.NT.N9.NTT.10AJ 

Common  /*L*C/  J* 1*1 i ,x*  <s  i i 

COMMON  /RKLO/  P<(?0.20> •F,*(2o.20l 

COMMON  /OLIVE/  pUN,OSC»01N.«AT.*EC.NOL.NJ*.T!TLEtlnl 
COMMON  /Rl*H/  NTSJM,N*SUM,i;su*,YLa«UN,EMSJN,CNPSiiM 
COMMON  /BL*I/  V(?l),0EMlN(»il.jEMA»»2|).UEA9E(21>.oE3LT*2|lt 

♦ YLP(?U*EMT)»i).CMP(»l| 

Common  /8l*J/  *n*mF i2.?I i .tnE-C i2,»I i ,mi tbC i21 ) .tty*£ ( 2 l » , 

♦ ) ,n<Jmt  i?|  ) .9ni2i  I .pui21>  .AO l 21  I »CEpl?l > • 

♦ PLSI21 ) . 9SRi»ll  .9T*<»1> .MOM  1 21 1 

common  /*l*n/  n*ent. isum (t.toi .nsj«n  1. «n 

COMMON  /RL*2/  lAI4.?a00>  *0*120001  .T»(20#01  *N* 

OIMENSlON  HEAD(5,5| 

DIMENSION  X0E(5.>i  ,X9PN(So>  .*YlU(B0I  tXFMI (Bo I . *CmP ISO) 

DIMENSION  JToTibo)  ,L1Nk(5ui  «IpT  I SOI  *19(201  *9|20»  *na<; o> 
intesem  Hoa.vN.«n 

looic»l  PON,usc,oiN.M*Ttvitr»Nac«Noc 

OAT  A N2AD/2NA*.4H9ALU,*NE  oA, *HM AOF • \ MO. tHl N, AMME AM • 4 MC MS  -AmJSEO, 
I lM  * tHl  n*  AHM(UA  *aHT  OnS  t Am  (IBE*IM0t2HlN«ANEMr  iAHJSeOi 

? 1M  , 1 H ,2MIN,*ML..P  .»HU$r0,|H  .1H  / 

900  F0RMATI41*.  •problem*,  I*.*  orMmAL  «0l<IT10N  F OR  M«,At'*IM Oh  *.  AAA/ 

♦ 41  At I0A4/1 

90 2 FORMAT (//5’x«*TAR8ET  RESULTS*// 

1 a*.*TaROeT  TYPt  TALUr  TARSETS  OAMA9E0*. 

2 t*»*9EAP0na  JSEO**  Tx 1*910 A ToN a USED*. IO*.*FMT  JSEO*. 

I t2*.*Cmp  iirEO*/ 

4 2*«.*OAM*OEO  *.5(4»,*NJMBEr  *EmCE9T*I/I 

903  rORMAT HX.l2.2X.2A4.?x.A4.r 12.2.3<rl2.2*FB.2> ) 

904  FORMAT  I/9***TOTALS*,F2o.2.*(FI2.2,fB.»| /I9X.F12.2.*  *1 
90R  FORMAT (///bo***PEAPON  RESU( IS*// 

♦ 3?*t*M£AP0N  TYPl*.«A.**EAPON»  USED  MFaPONS  REMAIN l TO* 

♦ ,4X.*  •/.6X.2I4*.»nUM*»R  PERCENT*! • **.*  */| 

9qA  F0RMATI2T*.t2.2*.2A4.2X.A4.2(Fl|3.2.'*.2> .Flo. A) 

90T  FORMAT (/11X,*T0TAlS.,E».2(f 13. 2.FI.2) | 

90*  FORMAT (•l*.9X.*LAyOO*N*//lnA.*NUMiFR  OE  mEAP0NS*/2TX. 

♦ P61A/2T*. |4l4> 

909  FORMAT  I *0* * *TAR0ET*.13*»A*2*4*2**A4/! 

910  FORMA T (**•'■. 2 «FR. 4, 2x, 2014/2) a, I At*) 

911  FORMAT (/l*.*T0T»L»**.t«.2.F“.4,2x,F»14/tlx.l4IA) 

924  FORMAT  1 20**1 

92*  FORMATIRFIO.SI 

92a  FORMAT (12. ti. 2. Fin. A. *612) 

93*  format i*I*i 

*31  FoRMATI*l*»3«***SfNS|TJVJIv  OFi  KEApOn  SYSTEM  PARAMETERS*//**. 

» *MEAP0N  TY*E  9HA30M  OOE/OCEP  DOE/OYtO*. T*. 

. *OOE/OPLS  DOE /Omen  OOE/OPTP  00|/0*»*/ 

. 24X,*PR1CF*/|  ^ 

*32  FORMAT (|X.i2.2*.2A*.2*.A*.f11«S.EE|S.4) 

*50  FORMAT  1*1  The  RELATIVE  FU*CE  »m  IS*. Fa, 21 

c . 

lF(Nt.(O.0>  00  Tn  isoo 
R**A (M.i | 

R*1 ./M 

MR1TI (*,R*o)R 
1*00  cONTTmjE 


UNCLASSIFIED 


*R|TE(».0]0> 
tNlTIALlffc  ROUTINE 

•««  ZtfPNao 

EYLO.#. 

EEMTaR. 

ZCNPaO. 

ITK 

J»«  »•. 

0ONI*«U  |al.NM 
*<!>■•• 
i*o#  ConTi»',i 

00  1 32V  J»l*N 
JjAaJAIj) 

IF (JJR.OT.NTYI  00  TO  11*0 
00  |)|»  !»1*NR 
CALL  A«AT(I.JJ*.*I 
lr(A.EN.O«>  00  TO  1)10 
R(I»«Y(H«*»**(J) 

IRlO  CONTINUE 
I«0  CONTINUE 

c INTERNET  SOLUTION  Jtilt 
C 

00  100 T I-I.N 
C 

c ir  Slack  variable  oo  to  loos 

Ir<JA«l) .0T.NTY>00  TO  I00» 

IP(XAIl) ,ST,O.IICNTaICNT«I 
JOaJAIl) 

c 

c ETNO  TAROCT  NUMBER 

c 

JaO 

>001  JaJtl 

NQaNY. J 

CALL  AaAT (NO. JO. A> 
lEli.EN.O.)  00  TO  1001 
jToT(I>aJ 
C 

C CALCULATE  OE 
C 

VaOBJECy ( JA ( I ) * J.PS) 
XOE(II«(l.~PSt«TA(JO> 

C INITIALIZE  VECTOR  PARAMETER* 

**PN< !>»0. 

IVLOlIlaO. 

XEMTIIlaO. 

XCMRIIIbO. 

C CALCULATE  VALUE  Of  VECTOR  PARAMETERS 
C 

00  1000  Jal tNN 
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UNCLASSIFIED 


■WWWP*  wu..i  jiu  ihpimmun  i i i 

UNCLASSIFIED 


li 


CALI  anatiJ.JU.*) 
ir I*.£w.0t  80  TO  loot 
XVpN<I>a>*PN<l>*A 
*YL0<I1bXYL0(1>.A»YL0«J> 
xENTMIbXCPTMI.AaCmTIJI 
XCMP ( 1 1 .xCNp < 1 ) .AaCaP ( Jl 
*30*  ?ONlfNi|E 

C SlIP  SOLUTION  VALUES 

C IPPNalaPN. AA (I)*XaPN(I) 

tYLO»ZTLO»A*(II»xrLO(ll 
TENT.llMT»**(I»»«rPTlI) 

ICNPa*CNP«*A<nPXcN»(l) 

ZTK  •{!«  •*A(t)»xOE(l) 

zvK«ivx.xAiii»*or(ii »vi jji 

30  TO  loo? 

c 

c ip  »laca  corresponds  to  a neapon.  put  ner  apn  nun  In  jtst 
c 

loo*  JTOT'l'pNTV-JAlt) 

IP1JT3TM1.LT.-Np)  JTOtID.O 
»0#T  CONTINUE 
C 

C LINK  TAR3ATS 

c 

00  lOttt  1«I»NT 

SU.  Jpl.N 
IP|JT0T(J).NE.I)S0  TO  T01« 

IPlJPT.ro. OURTMlPJ 
IP « JPT.NE.01LINKI JPT1PJ 
JPTpJ 

ttio  c0ntinuc 

iOZO  LTNK(JPT)«0 

•RITE  IP .300) NP. (HEAD (J. I OP  l) . J»t»Sl .TITLE 

NRITET3.80*1 

00  10PP  lal.NT 

YTA  •». 

YOPNeO. 

TYL0.3. 

yent.o. 

YCHP.O, 

JpIPTMI 

if So  YTP  bYIP  .aRIJ)*  xDE(J) 

YPPNbYbPN.X* ( J) PX*PN < J) 

YYL0»T’lO»*A<J)»*YLt><Jl 

YENTPYlNT.AA(J|»xfNT(J) 

YCNP»YCnP»»A(J)p*cNP(J) 

J*L INA 1 J* 

IPU.Ni.OI30  TO  1030 

YvKpYTApvMI 

IPInUn*  M)  .EO.OlPialOO. 

IP (NUN I (I)»3T.0)Pla)00. *YTa/N JNT ( 1 1 
P?alOO.*YvPN/  NPSJN 
PJ-I OO.aYYLO/TLORUN 
PAalOO.PYENT/ENTSUN 


u 


0 

I! 


i 


li 
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UNCLASSIFIED 


oo  o 


UNCLASSIFIED 


PSalOO.avCPP/CNPRjM 

10*0  ORITE 14,901) It ITN4PE(J.1>.  l-l.<>,TTYPF<i)  . YVK,  YTK.P1 1 YPPN.FZ,  Y Yl.0, 
♦ P3.YEPT,P4.YCPb.P4 

PlalOP.*ZTK  / NTSUP 
P?a|0«.aZ*PN/  NFS')* 

PJalOO.aZTCO/TLOSUp 

P4aJOO.aZEPT/EPTSJP 

PSaloo.aZCPP/CPPSjP 

R*al#0»aZVR/VJU«* 

0RlTEI*,904)ZVK,ZTK,Pl,ZFP.i.PF,ZYLr)tPY.4lPT,»4.ZCPP.PStP6 

FT  CL'  SUpppRY  pRRpYS 

NSENTapSENTM 
IF  INSERT. ST. 201  NSENTb?0 
I SUM!  I.NSENTIapp 
ISUNI  2,NSENT|at0RJ 

SO  TOIlp4Ztl043.lo44.lo45.i04k>  .IOaJ 
404?  »SUM(  k iNSCNTI aZVK 
SO  TO  1 647 

*044  *SUM<  | .NSENT) aZWPN 
80  TO  llt*T 

4044  *SUM(  1 iNSENT) bZY^D 
SO  TO  1047 

4849  (SUM!  1 .NSENT) aZEPT 
SO  TO  |Q4T 

4044  *sUP(  |,NsENT>aZCPP 
*047  XSUMI  F.NSENT) a NTSUP 
*SUM|  J.NStNTlaP) 

XSUpl  4.N»ENT|a  Y$Ur 
XSUMI  0, NSENT) aPS 
*SUP|  *tNSENT)a  NFSJP 
4 SUM  I ?, NSENT) a,? 

4 SUP  I 0. NSENT )*VLOSUP 
XSUMI  V,NSENT|bPj 

XSUM 1 10, NSENT > af NTSUP 
XSUM ( 1 i t NSENT ) aP4 
XSUM ( 1Z, NSENT  > aCMPSUP 
*SUMIU,NSENTIap8 
FRITE IP.OOS) 

So  lOSu  I al «NH 
OlP.M-pNIIl-OlI) 

JaNTY.i 

P|aNOMP(I>»P(I) 

IF INUPM | I ) .EO.OI P?al SO. 

IF (NUpb i I ) ,NE,0) B?a| 00 .*P1 /NUaa ( I ) 

P3alOO..P2 

FRITE(*.90*>It IFNXPEIK.I) .*•! , F) . ftYPC 1 1 > ,PI ,PZ,F»I ) ,PJ 
ioSa  Continue 

Pl«I 0O.*ZPFN/NPSUP 

PZaNFSOM-ZFPN 

^J*IOO»-FI 

FRITE  lO.SOT)  ZOPN.H  .PltPJ 
TF(NOU  RETURN 
PRITEIo.OOS) I Jt Jay .pFI 
00  ttio  Ia| ,NT 

ORlTE(0,Os*)Ii4TN4PE(J.I> • )■!.<) .TtYPF|I| 

00  1000  J*1»N* 


C-28 

UNCLASSIFIED 


UNCLASSIFIED 


A06ft  4 ( J) «0 • 

KalPTll) 

*0T0  jr<x*t*) .EO.O.IOO  TO  »ovo 
00  107*  Jol.NO 

e*LL 

9*(j),irix(*.o.»i 

1079  CONTlNUf 

TRITE (0.9IO I X*(K).XOC(KI. J.1.S9I 


COLL  Xn*T|J.J°.») 

oij)»»tj)«*«xo(x) 

10*0  iONTlNuf 
10*0  KaLINKtK) 

IrtK.Ol.OlSO  TO  1070 

ir<NUMT(ii.ea.o)YOC*i, 

ir(NUMT(tl.«T.0)T0EaT0C/NOu7(I> 

00  1100  JaWNl 
I0IJ)»1F!*<«MJ).6.S) 
iioo  Conti noc 

OlaNUMI (J) 

1110  0»ITC(»,*111P1.V0E.II«(J»  t.ial.90) 
RETURN 
ENO 


C-29 


UNCLASSIFIED 


r 


■ 


UNCLASSIFIED 

LJ 


SUBROUTINE  dual 

COMMON  /«LA»/  8<S1 > <C < >00  I ' • M. 1. N' 

COMMON  /BLKC/  JAI51) ,K»(bl< 

l 

M1«NM 

00  lit  1*1. Ml 
lit 

tfTUh.: 

too  fo<»h»T « | hi  > 
tot  roRMAriutiittFis.ti 
CNO 


I 


UNCLASSIFIED 


SUBROUTINE 

COMMON  B<SM.C|?OOM*m.n.N| 

COMMON  /Bl*8/  NR.nt.NR.NV.IUB  i 
COMMON  /BLAT/  JSRTlEO) .JEnoIIo) 

COMMON  /B IA(4.?006>»U»IZ000>,tA(>00O),N4 

*■0.  _ 

IEd.Ll.N*.AND.J.LE.N»)  6u  To  100 
IEIJ.0I.N)  00  TO  fO 
lEd.OT.M)  00  TO  10 

ie (I.ot.n*.*no.j.le.nvi  oo  to  *o 
ieii.ot.n*)  oo  to  So 
ird.OT.NM)  return 

iEd.tu.j.Nvi  *«i. 

RETURN 
ID  CONTINUE 

A.CtJ) 

RETURN 
<A  CONTINUE 

lE(J.Nt.N*NZ»ll  ao  TO  30 
IEd.3l.MI  *«1. 

RETURN 
30  CONTINUE 

lE(I.OI.M)  A.-l, 

IEd.LA.NR)  »—id» 

return 
«o  continue 

Zra4<»«J>«3E.USRrd*N*).*NU.I*II*  />.IE.JENDII«N*>)  4«D»1J) 
RETURN 
SO  CON'lN^E 

lEd.EU.J-NV.NT)  4>1. 

RETURN 
100  CONTINUE 

IEd.Lk.NR>  00  TO  ZOO 
lEd.E0.NR4lAtl.J1)  AaTAtJl 

Return 

100  CONTINUE 

lEd.tM.IAt4.JM  so  TO  300 
IEd.tM.t4(j,J).0o,i.Eo.l»lJ.JI)  4.1. 
lEd.Cu.lAtS.Ul.A^D.IAd.Ji.EJ.O)  A«J. 

ReTURN 

103  CONTlN**e 
4.1. 

lEIIAD.jl  .EQ.O)  4.1 

RETURN 

CnO 


C-31 


UNCLASSIFIED 


SUBROUTINE  MUtJ.TT) 
common  /Blue/ 

TT.g. 

00  1» 

C*U 

TT»TT«U(I.*t»* 

IB  COn* In^E 
RETURN 
ENO 


